Mover ventana

[joHn je@N]

Tengo un programa en el que necesito mover mi aplicacion dandole click al cuerpo del form y no a la barra de titulo ya que no la visualizo por el borderstyle que modifico.

Espero me puedan ayudar de antemano gracias!!!

[vtdeleon]

Saludos

Hace un tiempo intente hacer lo mismo. Lo adjunto para que te guies.

[joHn je@N]

gracias espero le entienda a tu ejemplo porque la verdad soy aprendiz pero con ganas de aprender demasiado.

G
R
A
C
I
A
S

[roman]

Una forma sencilla sería interceptar el mensaje WM_NCHITTEST de Windows:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;

  public
    { Public declarations }
  end;

implementation

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;
  if Msg.Result = HTCLIENT then
    Msg.Result := HTCAPTION;
end;

Aunque sólo funcionará si la arrastras desde una parte del formulario que no tenga ningún control.

// Saludos