|
Gracias por la respuesta, para el que esté interesado en esto, encontré una forma muy simple de hacerlo, es la siguiente:
En el evento OnMouseDown del componente que queremos mover, por ejemplo un TPanel, hacemos:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
panel1.perform(WM_SysCommand, SC_DragMove, 0);
end;
|