Popup menü items sortieren?

[toms]

Hier mal ein Vorschlag:

Delphi-Quellcode:

procedure SortPopupMenu(PopupMenu: TPopupMenu);
var
  n1, n2: Integer;
  mi: TMenuItem;
begin
  with PopupMenu, Items do
  begin
    for n1 := 0 to Count - 1 do
    begin
      for n2 := n1 + 1 to Count - 1 do
      begin
        if Items[n1].Caption > Items[n2].Caption then
        begin
          mi := Items[n2];
          Delete(n2);
          Insert(n1, mi);
        end;
      end;
    end;
  end;
end;