Reihenfolge Menüeinträge für TMainMenu

[Hansa]

Wich ich das jetzt gemacht habe ? So :

Delphi-Quellcode:

procedure TfrmMenue.FormCreate(Sender: TObject);
var i : Integer;
    c : TComponent;
    NewItem: TMenuItem;
begin
  inherited;
  sl := TStringList.Create;
  men := TMainMenu.Create(self);
  for i := 0 to ComponentCount - 1 do begin
    c := Components [i];
    if c is TMyPanel then
      sl.Add(lb ((c as TMyPanel).Caption,50)+(c as TMyPanel).Name);
  end;
  sl.Sort;
  for i := 0 to sl.Count - 1 do begin
    c := FindComponent (Copy (sl[i],51,Length (sl[i])));
    NeuerMenueEintrag (men,c as TMyPanel);
  end;
  sl.Free;
end;

Der Trick ist eigentlich nur, dass das Menü nach den Captions sortiert werden soll und auch der Name gebraucht wird. Und die hänge ich einfach hintereinander. Die Prozedur NeuerMenuEintrag und alles andere bleibt unverändert.

P.S.: hatte auch mit TObjectList spekuliert. Dazu müsste man dann aber noch die Sortierroutinen selber bauen. So wars eben einfacher.