aktives MDIChild

[Christian Seehase]

Moin Hawk,

angenommen, Du hast zwei verschiedene MDIChild Formulare, TForm2 und TForm3, dann müsste das so gehen:

Delphi-Quellcode:

procedure TForm1.IrgendEineMethodeVonTForm1(ggf. Mit Irgendwelchen Parametern);

var
  MDI1 : TForm2;
  MDI2 : TForm3;

begin
  if (ActiveMDIChild is TForm2) then
  begin
    MDI1 := TForm2(ActiveMDIChild);
    // Mach was mit dem MDI1
    exit;
  end;
  // Mit MDI2 dann analog zu MDI1 usw.
end;