Hallo,

Ich will im Untermenü des Hauptmenüs(TMainMenu)zwischen den einzelnen Zeilen einen Strich einfügen, so wie bei Delphi 7 zwischen "Drucken" und "Beenden". Weder Google noch die Delphi-Hilfe bietet eine Lösung. Ich hoffe ihr könnt mir helfen.

Danke im Voraus
MfG

Füge einen neuen Menüpunkt ein und trage dort bei der Caption ein - Zeichen ein

TMenuItem.Caption

Er sucht wohl eher sowas:

Vcl.Menus.NewLine

Das kannte ich noch gar nicht, kann aber auch keinen echten Vorteil gegenüber einem "-"-Eintrag ausmachen, eher im Gegenteil.

Zitat:

Warnung: Der von NewLine zurückgegebene Eintrag hat keinen Eigentümer. Der Programmierer muss den dem Eintrag zugewiesenen Arbeitsspeicher wieder freigeben, wenn der Eintrag nicht mehr benötigt wird. Die Methoden Delete und Remove von TMenuItem geben diesen Arbeitsspeicher nicht frei.

Jupp, vergiß die schottige NewLine-Funktion.

Zitat von Vcl.Menus:

markieren

Delphi-Quellcode:

const
  cHotkeyPrefix = '&';
  cLineCaption = '-';

function NewLine: TMenuItem;
begin
  Result := TMenuItem.Create(nil);
  Result.Caption := cLineCaption;
end;

Hier müsste man das Ding via Items.Add einem Menü zuweisen und dazu am Besten noch den Owner setzen oder es manuell Freigeben.

zusammenfalten · markieren

Delphi-Quellcode:

Item := TMenuItem.Create(PopupMenu1);
Item.Caption := cLineCaption; // aka '-'
PopupMenu1.Items.Add(Item);

Item := NewLine;
PopupMenu1.Items.Add(Item);
// später
Item.Free;

Item := NewLine;
PopupMenu1.InsertComponent(Item); // aka Item.Owner := PopupMenu1;
PopupMenu1.Items.Add(Item);