Como Faço Para Deixar Um Formulário Sempre Visivel

[Guest Tiago Araujo]

Se alguém puder ajudar, agradeço desde já.

Como faço para deixar um formulário sempre visivel (em 1.º plano) na execução ? ... Para deixar uma form a frente de tudo que está rodando no pc

obrigado

[Thales Pontes Martins]

Se for o form principal é só colocar a propriedade FormStyle dele para fsStayOnTop. Se for form secundario é só usar a dica do nosso colega s3c, e sobrescrever esse procedimento ->

procedure CreateParams(var Params: TCreateParams); override;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := 0;
end;

Lembrando que também é preciso colocar a propriedade FormStyle para fsStayOnTop.

Abraço.

[Guest Visitante]

Olá!

Você quer impedir a saída de um form ou impedir que o usuário acesse outros programas?

[paulobergo]

Bom... isso vai fazer o formulário ficar "sempre por cima":

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  With Form1 do
    SetWindowPos(Handle, // "handle" para a janela
                 HWND_TOPMOST, // controla onde vai ficar a janela  (*¹)
                 Left,  // a posição horizontal
                 Top,   // a posição vertical
                 Width, // a largura
                 Height, // a altura
                 // opções de posicionamento da janela
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); // (*²)
End;

*¹ *²

Existem outras opções, além de HWND_TOPMOST, ou SWP_NOSIZE

Coloca o cursor antes, por exemplo de SWP_NOMOV e pressiona Control+Espaço e vai digitando S W P...

O Delphi mostra as outras opções, que você pode testar...

Ok?