Form sempre na frente
25/03/2006
0
Tó fazendo um MSN Popup com muito mais funções e to precissando disso.
Irei disponibilizar aqui para o pessoal, quando tiver pronta!
Obrigado!
Rudá
Posts
25/03/2006
Vinicius2k
SeuForm.Style := fsStayOnTop;
Ou alterar a propriedade [b:e00076965f]Style[/b:e00076965f] diretamente no Object Inspector.
25/03/2006
Rudá
Não tem a propriededa Style
25/03/2006
Vinicius2k
Leia-se [b:63858aa6f1]FormStyle[/b:63858aa6f1].
25/03/2006
Rudá
Como resolver isso??
25/03/2006
Martins
Como resolver isso??[/quote:76e6f6954a]
O Código q o Vinicius passou deveria funcionar, vc testou mudando as propriedade nos forms filho? Sua aplicação é SDI ou MDI.
Em último caso tente.
SetForegroundWindow(Formx.Handle);
Boa sorte!!!
25/03/2006
Rudá
Estou fazendo assim:
Estou usando Delphi 7;
Vou em File - New - Application;
Coloco um Button no Form1;
E Coloquei esse Código:
procedure TForm1.Button1Click(Sender: TObject); var Form: TForm; begin Form:= TForm.Create(Self); Form.FormStyle:= fsStayOnTop; Form.Show; end;
No Form1 o [b:4454b48427]FormStyle[/b:4454b48427] está [b:4454b48427]fsNormal[/b:4454b48427];
E assim não funcionou!
Tentei Colocar no Form1 o [b:4454b48427]FormStyle[/b:4454b48427] = [b:4454b48427]fsStayOnTop[/b:4454b48427];
Mas mesmo assim não funciona!
Podem dar uma olhada no que eu fiz: http://www.hiperleao.com.br/frente.zip
25/03/2006
Vinicius2k
Em tempo, seu código de criação do segundo form está, digamos, um tanto ´estranho´...
uses UnitDoForm2; procedure TForm1.Button1Click(Sender: TObject); begin SeuForm2 := TSeuForm2.Create(Application); SeuForm2.Show; end;
25/03/2006
Rudá
26/03/2006
Kroki
No evento OnShow do Form que vc quer;
...
try
Form1.FormStyle:= fsStayOnTop;
SetForegroundWindow(Form1.Handle);
Form1.Activate;
except end;
...
OBS:Na hora da compilação ele gera uma execessão.
Seu form sempre estará na frente dos outros.
26/03/2006
Kroki
Clique aqui para fazer login e interagir na Comunidade :)