Araste de Form

Question

Como eu fa�o para arastar um form que naum tenha barra de titulo?...

Anonymous · Answer

[quote:3b8b729d3c=�Lokynho�]Como eu fa�o para arrastar um form que naum tenha barra de titulo?[/quote:3b8b729d3c]...

Anonymous · Answer

[color=blue:7a0b01c17c]- V� na se��o private do Form1 e declare a procedure abaixo:[/color:7a0b01c17c]

private
procedure WMNCHitTest(var Msg: TMessage);
message WM_NCHitTest;
public
{ Public declarations }
end;

[color=blue:7a0b01c17c]- V� na se��o implementation e escreva a procedure abaixo:[/color:7a0b01c17c]

implementation
{$R *.DFM}
procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
if GetAsyncKeyState(VK_LBUTTON) < 0 then
Msg.Result := HTCAPTION
else
Msg.Result := HTCLIENT;
end;