Ya encontre como moverlo es un truco aca va:
Debemos capturar los mensajes del ratón WM_NCHITTEST (Non Client Hit Test) y hacer creer a Windows que acabas de hacer clic sobre el título, aunque lo hagas en el interior de la ventana:
type
TForm1 = class(TForm)
..........
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
..........
end;
y en la parte implementation:
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = htClient then Msg.Result := htCaption;
end;
y si señor de que se mueve se mueve jeje
|