Trenn-Strich im MainMenu

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