MDI und TMainMenu

[Berserker]

Hallo.

Eine Frage zu MDI-Formularen und TMainMenu.

Gibt es die Möglichkeit, das ein TMainMenu, was auf sich auf einem MDIChild befindet, auch in dieser zu belassen und nicht mit dem TMainMenu der MDIForm zu verbinden?

MfG, Ronny

[arbu man]

MDIChild nehmen toolbar drauf knallen und das mainmenu der form rauben und in die toolbar quetschen.

[Berserker]

Spitze.

Funktioniert prima.

nun muss ich es nur noch einrichten, das man ein MDIChild nur einmal öffnen kann.
Habe diesbezüglich bereits im Forum etwas gefunden aber dies funktioniert leider nicht richtig.

[arbu man]

Das sollte doch nun kein problem sein:

Delphi-Quellcode:

var nureins:boolean;

// create
if  not nureins then begin
  nureins:=true;
  // erzeugen tform.create
end;

// onclose
begin
  nureins:=false;
end

[Berserker]

Wo soll ich diesen Code verwenden?

In der Mainform? Wenn ja wie? So ganz steige ich da nicht durch.

[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

[Berserker]

Supi. Funktioniert spitze.
Vielen Dank ErazerZ