[code lang=”delphi”]procedure TForm1.Button3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
Begin
ReleaseCapture;
Panel1.perform(WM_SysCommand, SC_DragMove, 0);
End;
end;[/code]
[tags]Delphi, Components[/tags]
0 Kommentare zu “Moving at runtime”