[yusnerqui]

Bueno pues me había construido este ejemplito:

Código Delphi [-]
  type
  TForm1 = class(TForm)
  private
    { Private declarations }
     procedure WMNCMOUSEDOWN(var Message: TMessage);
            message WM_NCLBUTTONDOWN;
....
 
implementation
...
 
procedure TForm1.WMNCMOUSEDOWN(var Message: TMessage);
begin
   if Message.wParam  <> HTCAPTION   then
      inherited;
end;

pero después de haber visto el hilo recomendad por roman....

mejor voy a estudiar

Saludos