When running, you can drag the label on the report with the mouse

 label hlms Delphi notes-delphi2007.net 
 http://www.delphi2007.net/delphiblog/html/delphi_2004992226395018.html 

Private {private Declarations} originalpos, downpos, currentpos: tpoint; mousedown: Boolean; // initialize it as falseprocedure tform1.label1mousedown (Sender: tobject; button: tmousebutton; shift: tshiftstate; x, Y: integer); begin originalpos. x: = label1.left; originalpos. y: = label1.top; downpos. x: = x; downpos. y: = y; downpos: = clienttoscreen (downpos); If Button = mbleft then mousedown: = true; end; Procedure tform1.label1mousemove (Sender: tobject; shift: tshiftstate; X, Y: integer); begin if mousedown then begin currentpos. x: = x; currentpos. y: = y; currentpos: = clienttoscreen (currentpos); label1.left: = originalpos. X + currentpos. x-DownPos.X; label1.top: = originalpos. Y + currentpos. y-DownPos.Y; end; Procedure tform1.label1mouseup (Sender: tobject; button: tmousebutton; shift: tshiftstate; X, Y: integer); begin mousedown: = false; end;
 

I am thinking about publishing a blog. Anyone can write 10 to one hundred books on his blog. This is interesting.

Howto track a user's idle time

A director played with hundreds of women for ten years and left a shameless "sexual Diary"

A fastreport report template is similar to a crystal report.

Interception of API functions in Win2k

Timer In tthread

Additional data within a stringlist

Find all local computers on a LAN

Disable Ctrl Alt Del and ALT Tab

Hi/LO order byte