Feststellen ob ein bestimmtes MDI Child geöffnet ist?

[PeterKiers]

Hallo zusammen!

ich bin absoluter Delphi Anfänger und hab nun ein kleines Problem das ich einfach nicht lösen kann. Hab auch hier im Forum schon gesucht jedoch nichts gefunden.

Wie kann man Feststellen ob ein bestimmtes MDICHild gestartet ist

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  inc(i);
  if i > 6 then i := 1;
  case i of
    1: begin
        if MDIChildren[i].ClassName = 'TForm2' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV001 ...');
        end;
      end;
    2: begin
          if MDIChildren[i].ClassName = 'TForm3' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV005 ...');

        end;
      end;
    3: begin
        if MDIChildren[i].ClassName = 'TForm4' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV006 ...');

        end;
      end;
    4: begin
        if MDIChildren[i].ClassName = 'TForm5' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV007 ...');

        end;
      end;
    5: begin
        if MDIChildren[i].ClassName = 'TForm6' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS01DUO1 ...');

        end;
      end;
    6: begin
        if MDIChildren[i].ClassName = 'TForm7' then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS02DUO1 ...');

        end;
      end;
  end;
end;

Im voraus schon mal vielen Dank.

Gruss

Peter

[sECuRE]

Hi,

mittels FindComponent('Form1'); zum Beispiel. Oder man geht allgemein die offenen MDIChilds durch, in einer Schleife könnte das dann so aussehen:

Delphi-Quellcode:

var c,cClassname:integer;
begin
for c:=0 to MDIChildCount-1 do
  for cClassname:=1 to 6 do
    if (MDIChildren[c].Classname = 'TForm'+IntToStr(cClassname)) then
      ShowMessage('Dies ist children #'+IntToStr(cClassname));

Auch wenn mir nicht ganz klar ist, was das ganze werden soll.. ;)

Edit: Noch Beispielcode zum FindComponent:

Delphi-Quellcode:

if (FindComponent('Form1') <> nil) then
  ShowMessage('Form1 ist geöffnet');

cu

[PeterKiers]

Es Funktioniert...

Danke

Peter Kiers