RESTAURAR FOCO P/APLICAÇÃO
HELP!!!
MEU SISTEMA ESTA PARA SER TESTADO NA HOMOLAGAÇÃO TEF
E AO EXECUTAR OUTRA APLICAÇÃO O FOCO NÃO RETORNA PARA A
MINHA. SOCORRO...
MEU SISTEMA ESTA PARA SER TESTADO NA HOMOLAGAÇÃO TEF
E AO EXECUTAR OUTRA APLICAÇÃO O FOCO NÃO RETORNA PARA A
MINHA. SOCORRO...
Vander.info
Curtidas 0
Respostas
Wolverine
11/01/2004
é so uma ideia
Inclua na seção uses: Windows
{ Coloque um TTimer no Form desejado. Define a propriedade Interval do Timer para 1000 (1 segundo). Modifique o evento OnTimer do Timer conforme abaixo: }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Handle, true);
FlashWindow(Application.Handle, true);
end;
espero ter dado uma :idea:
Inclua na seção uses: Windows
{ Coloque um TTimer no Form desejado. Define a propriedade Interval do Timer para 1000 (1 segundo). Modifique o evento OnTimer do Timer conforme abaixo: }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Handle, true);
FlashWindow(Application.Handle, true);
end;
espero ter dado uma :idea:
GOSTEI 0
Salatiel
11/01/2004
Tudo bem? Voce pode usar o seguinte:
GetForegroundWindow();
SetForegroundWindow(Handle);
Maiores informacoes no Help do Delphi. Ok :lol:
Att.
Salatiel Venâncio
´JESUS, Minha Certeza!´
GetForegroundWindow();
SetForegroundWindow(Handle);
Maiores informacoes no Help do Delphi. Ok :lol:
Att.
Salatiel Venâncio
´JESUS, Minha Certeza!´
GOSTEI 0