Buscar por:

Criando form sem título que possa ser arrastado

Código

{- Crie um novo projeto; 

- Mude as seguintes propriedades do Form1: }

  BorderStyle = bsNone, FormStyle = fsStayOnTop, 

{- Coloque um Label; 

- Coloque um Timer; 

- Altere o evento OnTimer do Timer1 conforme abaixo: }

procedure TForm1.Timer1Timer(Sender: TObject); 

begin 

  Label1.Caption := TimeToStr(Time); 

end; //- Altere o evento OnCreate do Form1 conforme abaixo:

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  Width := 80; 

  Height := 40; 

  Label1.Left := 10; 

  Label1.Top := 10; 

end; //- Vá na seção private do Form1 e declare a procedure abaixo:

private 

  procedure WMNCHitTest(var Msg: TMessage); 

  message WM_NCHitTest; 

public 

  { Public declarations } 

end; //- Vá na seção implementation e escreva a procedure abaixo:

implementation 

{$R *.DFM} 

procedure TForm1.WMNCHitTest(var Msg: TMessage); 

begin 

  if GetAsyncKeyState(VK_LBUTTON) < 0 then 

  Msg.Result := HTCAPTION 

  else 

  Msg.Result := HTCLIENT; 

end; {- Execute e experimente arrastar form com o mouse.

Para fechar este aplicativo pressione Alt+F4, ou inclua um botão. }