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:

markieren

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 .....

markieren

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

Feststellen ob ein bestimmtes MDI Child geöffnet ist?

Feststellen ob ein bestimmtes MDI Child geöffnet ist?

Forumregeln