Fórum Saber quando um janela está ativa #227651

22/04/2004

0

Delphi

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

Responder

Posts

22/04/2004

Flayer

explicar melhor cara não entendi !!!!


Responder

Gostei + 0

23/04/2004

Djjunior

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


Responder

Gostei + 0

23/04/2004

Chucky21

djjunior valeu,

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


Responder

Gostei + 0

26/04/2004

Okama 

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;



Responder

Gostei + 0

26/04/2004

Salsa

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 +/-


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar