Feststellen ob ein bestimmtes MDI Child geöffnet ist?

[PeterKiers]

Hi zusammen,

Ich hab eine letzte Frage!

wie kann man feststellen, ob ein bestimmtes MDI Child geöffnet ist?

Dieser Prozedure stimmt:

Code:

procedure TMainForm.Connections(Sender: TObject);
begin
  if ConfigMan.CheckBox1.Checked = True
    then as4sv001(sender);
  if ConfigMan.CheckBox2.Checked = True
    then as4sv005(sender);
  if ConfigMan.CheckBox3.Checked = True
    then as4sv006(sender);
  if ConfigMan.CheckBox4.Checked = True
    then as4sv007(sender);
  if ConfigMan.CheckBox5.Checked = True
    then as01duo1(sender);
  if ConfigMan.CheckBox6.Checked = True
    then as02duo1(sender);
end;

Aber in dieser Prozedure müsste gekuckt werden ob der MDI Child
geöffnet is, und nicht if “ConfigMan.CheckBox1.Checked = True then”.
ich möchte zB so was wie

if ('TForm1' = Active ) then begin .....

Code:

procedure TMainForm.Timer2Timer(Sender: TObject);
begin
  inc(i);
  if i > 6 then i := 1;
  case i of
    1: begin
        if ConfigMan.CheckBox1.Checked = True then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV001 ...');
          Form1.CopyAsText(nil);
          Form7.txtLog.Text := ' ';
        end;
      end;
    2: begin
        if ConfigMan.CheckBox2.Checked = True then
        begin
          Statusbar1.Panels[0].Text := (' Checking AS4SV005 ...');
          Form2.CopyAsText(nil);
          Form7.txtLog.Text := ' ';
        end;
      end;
    3: begin
              und so weiter...

Gruss Peter