StayOntop apenas quando aplic. tiver foco
Ola programadores, boa tarde.
Quem pode me ajudar a manter um form com style = fsStayOnTop, mas
apenas quando qualquer outro form da aplicação estiver com foco.
Por exemplo.
Minha aplicação tem 3 forms. eu chamo o primeiro, entao a partir deste chamo o segundo e quando este é criado, tambem cria o 3 que fica em primeiro plano.Mas quando essa aplicação perder o foco (tipo se eu usar outro aplicativo) o form 3 nao fica por cima da outra tela.
Fico grato, pela atenção.
Quem pode me ajudar a manter um form com style = fsStayOnTop, mas
apenas quando qualquer outro form da aplicação estiver com foco.
Por exemplo.
Minha aplicação tem 3 forms. eu chamo o primeiro, entao a partir deste chamo o segundo e quando este é criado, tambem cria o 3 que fica em primeiro plano.Mas quando essa aplicação perder o foco (tipo se eu usar outro aplicativo) o form 3 nao fica por cima da outra tela.
Fico grato, pela atenção.
Macario
Curtidas 0
Respostas
Beppe
19/07/2004
Drope um TApplicationEvents.
É uma solução rude, note que vc deve ocultar o form antes de mudar FormStyle.
procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject); begin Form2.Hide; Form2.FormStyle := fsNormal; end; procedure TForm1.ApplicationEvents1Activate(Sender: TObject); begin Form2.FormStyle := fsStayOnTop; Form2.Show; end;
É uma solução rude, note que vc deve ocultar o form antes de mudar FormStyle.
GOSTEI 0