Form estatico

[Marcus Takahashi 0]

Pessoal,

Gostaria de saber se tem como eu manter o form fixo na tela, não sendo possivel q o usuário mude ele de lugar...

agradeço desde ja... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Pode fazer o seguinte usando WM_NCHITTEST, declare a procedure no form desejado:

 

procedure WMNCHitTest(var msg: TWMNCHITTEST); message WM_NCHITTEST;

E depois no fonte faça:

 

procedure TForm1.WMNCHitTest(var msg: TWMNCHITTEST);
begin
inherited;
if (msg.Result in [HTCAPTION,HTBORDER,HTBOTTOM,HTBOTTOMLEFT,HTBOTTOMRIGHT,HTLEFT,HTRIGHT,HTTOP,
TTOPLEFT,HTTOPRIGHT]) then
	msg.Result:=HTCLIENT;
end;