(Resolvido) Verificar se existe algum MDI aberto

[Vivendo&Aprendendo]

Galera preciso saber se existe algum form MDI aberto. Eu uso o seguinte código para verificar:

If ActiveMDIChild = FrmAcrescimos Then

Mas preciso verificar se vários forms MDI estão abertos ou não, ai se eu fizer da maneira que estou fazendo terei que fazer inumeras comparações, gostaria de saber se existe alguma forma mais simples para isso, tipo um loop para verificar uns 20 forms se existe um deles aberto ou nenhum.

Abraço

Editado Julho 21, 2008 por Vivendo&Aprendendo

[Jhonas]

preciso verificar se vários forms MDI estão abertos ou não

voce pode entar assim

var 
  I: Integer; 
begin
  for I := 0 to MDIChildCount - 1 do begin 
    if MDIChildren[I] is TForm then 
    begin 
       showmessage(' já existe um form da classe TForm'); 
       showmessage( MDIChildren[I] + ' é um form  MDIChild ');
    end; 
  end; 
end;

outra maneira:

http://www.webly.com.br/tutorial/net/3649/...licacao-mdi.htm

abraço

[Vivendo&Aprendendo]

Jhonas obrigado... esse é o caminho mesmo, mas veja se pode me ajudar ainda.

Eu coloquei o seu código no OnTimer do Timer, eu preciso que ele fique verificando se existe algum form MDI aberto, caso exista ele mudará o filme do componente ShockwaveFlash. O Código ficou assim:

procedure TFrmPrincipal.TimerTimer(Sender: TObject);
var I: Integer;
begin
  for I := 0 to MDIChildCount - 1 do
    if MDIChildren[I] is TForm then
       ShockwaveFlashLetreiro.Movie := 'C:\VirtuaPlacas - Sistema Para Fábricas de Placas\Movies\Atalhos.swf'
    else
       ShockwaveFlashLetreiro.Movie := 'C:\VirtuaPlacas - Sistema Para Fábricas de Placas\Movies\Letreiro.swf';
end;

Ele deve iniciar o sistema com o Filme Letreiro e quando eu abrir um MDI ele mudará para o Filme Atalhos e fechando os forms MDI deverá voltar o filme anterior.

Ele está abrindo o filme Atalhos certinho mas quando eu fecho o form ele deveria voltar para o outro filme e não está voltando.

Pode me ajudar?

Abraço

[Jhonas]

Veja se funciona assim:

procedure TFrmPrincipal.TimerTimer(Sender: TObject);
begin
    if MDIChildCount <> 0 then
       ShockwaveFlashLetreiro.Movie := 'C:\VirtuaPlacas - Sistema Para Fábricas de Placas\Movies\Atalhos.swf'
    else
       ShockwaveFlashLetreiro.Movie := 'C:\VirtuaPlacas - Sistema Para Fábricas de Placas\Movies\Letreiro.swf';
end;

abraço