Crie uma nova aplicação e coloque um panel no
centro do formulário.
No evento OnMouseDown do panel, deixe conforme o
exemplo abaixo:
1 2 3 4 5 6 7 8 | procedure TFrmMover.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; { Move o panel } PostMessage(Panel1.Handle, WM_SYSCOMMAND, $F012, 0); end; |
