PopupMenu mit <100 Einträgen darstellen

[Helmi]

Du kannst bei einem TMenuItem angeben ob dort gebrochen werden soll, z. B. eine zweite Spalte.
Vielleicht wäre das was für dich.
Property break := mbBarBreak; .

[Edit]
Hier ein kleines Beispiel.
Es erzeugt 100 Einträge und nach jedem 10. wird gebreaked

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  S: String;
  Item: TMenuItem;

begin
  for i := 1 to 100 do
    begin
      //
      S := Format('Das ist Item %d', [i]);

      Item := NewItem(S, 0, false, true, nil, 0, ''); //auf das OnClick-Ereignis wird hier jetzt verzichtet (=nil)

      If ((i -1) mod 10) = 0 then
        Item.Break := mbBarBreak;

      PopUpMenu1.Items.Add(Item);
    end;
end;