Saber quando um janela está ativa

Delphi

22/04/2004

Olá a todos,

Preciso de uma rotina que enquanto a janela estiver ativa, repita um mesmo evento, ou seja enquanto esta janela estive com o canclose = False realize a determinado evento(procedimento).

Grato


Chucky21

Chucky21

Curtidas 0

Respostas

Flayer

Flayer

22/04/2004

explicar melhor cara não entendi !!!!


GOSTEI 0
Djjunior

Djjunior

22/04/2004

kra eu costumava fazer o seguinte qdo vc for abrir uma janela através de um menu eu alterava a propriedade checked deste e qdo fechava esta desmacava esse check, desta forma fica fácil de vc saber se uma janela já existe ou não no sistema


GOSTEI 0
Chucky21

Chucky21

22/04/2004

djjunior valeu,

Não é exatamente o que eu quero, mas resolve o problema!


GOSTEI 0
Okama

Okama

22/04/2004

Function TForm1.FORM_ATIVO( Formulario: String): Boolean;
var I: integer;
begin
Result := False;
for I := 0 to Screen.FormCount-1 do
    if UpTrim(Screen.Forms[i].Name) = UpTrim(Formulario) then begin
       Screen.Forms[I].Show;
       Result := True;
    end;
end;


Use assim: 

if FORM_ATIVO(´Form2´) then
  Timer1.Enabled := True  //Aqui vai o procedimento em OnTimer
else
  Timer1.Enabled := False;



GOSTEI 0
Salsa

Salsa

22/04/2004

vc queh saber se a janela do seu aplicativo esta em focu eh isso?
se no caso ela nao estiver ela em foco ela sei la .. pisca

if (GetForegroundWindow <> Form1.Handle) then
begin FlashWindow(Handle, true); FlashWindow(Application.Handle, true); end

foi isso q entendi +/-


GOSTEI 0
POSTAR