Trenn-Strich im MainMenu

[Jansteger]

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

[Sir Rufo]

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

Delphi-Quellcode:

-

Zeichen ein ;)

TMenuItem.Caption

[TiGü]

Er sucht wohl eher sowas:

Vcl.Menus.NewLine

[DeddyH]

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.

[himitsu]

Jupp, vergiß die schottige NewLine-Funktion.

Zitat:

Zitat von Vcl.Menus

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.

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);