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

[marabu]

Hallo Peter,

du kannst über die property MDIChildren deiner MainForm iterieren (MDIChildCount) und erhältst so alle instanziierten MDI child forms. Ist das keine Lösung?

Grüße vom marabu

[PeterKiers]

Ja,aber wie mach ich das?

PK

[marabu]

Ich habe mir die MDI Projektvorlage aus der D7 Galerie genommen, eine FindAction in der ActionList angelegt und diese mit einem MenuItem im Bearbeiten-Menü verknüpft.

Hier ist mein Code für die FindAction - vielleicht hilft dir das weiter?

Delphi-Quellcode:

procedure TMainForm.FindActionExecute(Sender: TObject);
var
  i, offset: integer;
  mc: TMDIChild;
  s: string;
begin
  s := '';
  if not InputQuery('Suchen nach', 'Suchtext', s) or (s = '') then
    Exit;
  for i := 1 to MDIChildCount - 1 do begin
    mc := MDIChildren[i] as TMDIChild;
    offset := Pos(s, mc.Memo1.Text);
    if offset > 0 then begin
      mc.BringToFront;
      mc.Memo1.SelStart := Pred(offset);
      mc.Memo1.SelLength := Length(s);
    end;
  end;
end;

Freundliche Grüße vom marabu

[Texas]

Hallo
ich habe in meinem Programm in dem ein MDI Fenster nur x mal von Anwender geöffnen werden soll
so gelöst

Delphi-Quellcode:

procedure THaupt.Kunden1Click(Sender : TObject);
begin
  if IsChildActive(self, 'Kundenhaupt') < 5 then begin
    KundenHaupt := TKundenhaupt.Create(self, -1);
    Kundenhaupt.Show;
  end
  else begin
    Kundenhaupt.SetFocus;
    Kundenhaupt.BringToFront;
  end;
end;

function THaupt.IsChildActive(parent : TForm; Aformname : string) : integer;
var
  NumActive, i : Integer;
begin
  if (parent is TForm) then begin
    NumActive := 0;
    for i := (parent as TForm).MDIChildCount - 1 downto 0 do begin
      if Pos(aformname, (parent as TForm).MDIChildren[i].Name) = 1 then
        inc(NumActive);
    end;
    result := Numactive;
  end
  else
    result := -1;
end;

Gruß texas