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!!!:D

[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:


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