DelphiFAQ Home Search:

Dragging components at run-time

 

commentsThis article has not been rated yet. After reading, feel free to leave comments and rate it.

This piece of code shows how to drag a TPanel component Panel1 at run-time:

procedure Form1.MouseDown(Sender: Tobject;
                          Button: TMouseButton;
                          Shift: TShiftState;
                          X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Panel1.Perform(WM_SysCommand, SC_DRAGMOVE, 0);
end;

Comments:

 

 

Email address (not necessary):

Rate as
Hide my email when showing my comment.
Please notify me once a day about new comments on this topic.
Please provide a valid email address if you select this option.
 
It seems that you are
from Washington, US .

Info/ Feedback on this

Show city and country
Show country only
Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:
photo Add a picture:

Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material.