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