MDI und TMainMenu

[ErazerZ]

hey, ich hab heute auch für mein projekt so einen code gemacht, vielleicht ist es das was du suchst

Delphi-Quellcode:

procedure CreateMDI(Frm: TFormClass);
var
  i: Integer;
begin
  { falls vorhanden einfach im vordergrund }
  for i := 0 to frmMain.MDIChildCount -1 do
  begin
    if frmMain.MDIChildren[i] is frm then
    begin
      with (frmMain.MDIChildren[i]) do
      begin
        Show;
        WindowState := wsNormal;
      end;
      Exit;
    end;
  end;
  { ansonsten, erstellen }
  Frm.Create(Application);
end;

procedure TfrmMain.Rechnung2Click(Sender: TObject);
begin
  CreateMDI(TfrmRechnung);
end;

cya, ErazerZ