Trenn-Strich im MainMenu

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