'Neu öffnen' im Hauptmenü

[Sharky]

Zitat von Nils_13:

... Aber wie erstelle ich dann SubMenuItems ?

Hai Nils_13,

ein Submenü-Item ist ein Submenü-Item weil es zu einem anderen MenüItem "geadded" wurde.
So gesehen sind alle Menüpunkte die Unter der "Hauptzeile" (Datei, Ansicht usw.) stehen auch nur Submenüs. Sie werden halt vom OS nur anders angezeigt.

Wenn das TItem des Menüpunktes "Neu Öffnen" den Namen reopen hat würde das ganze zum Beispiel so aussehen:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  I: Integer;
  newMenueItem : TMenuItem;
begin
  for I := 1 to 10 do
  begin
     newMenueItem := MainMenu1.CreateMenuItem; // Menueintrag erzeugen
     newMenueItem.Caption := Format('Datei %d neu laden',[i]); // Caption
     newMenueItem.OnClick := OnSubClick; // OnClick Methode
     reopen.Add(newMenueItem); // An das Menütiem "reopen" anhängen (ergo -> Submenü)
  end;
end;

procedure TDemoForm.OnSubClick(Sender: TObject);
begin
  ShowMessage ('blubb');
end;