Ir para conteúdo
Fórum Script Brasil
  • 0

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


Guest Tiago Araujo

Pergunta

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

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...