Como Faço Para Deixar Um Formulário Sempre Visivel
Se for o form principal e no form2 é só colocar a propriedade FormStyle dele para fsStayOnTop. Se for form secundario é só usar a dica do nosso colega s3c, e sobrescrever esse procedimento ->
no form2 abaixo do public coloque:
procedure CreateParams(var Params: TCreateParams); override;
e coloque esta procedure
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := 0;
end;
ou
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...
This entry was posted
on 10:33
and is filed under
DELPHI
.
You can leave a response
and follow any responses to this entry through the
Assinar:
Postar comentários (Atom)
.