Araste de Form

24/02/2003

2

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


Anonymous

Anonymous

Responder

Posts

24/02/2003

Anonymous

Como eu faço para arrastar um form que naum tenha barra de titulo?



Responder

25/02/2003

Anonymous

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


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar