Reihenfolge Menüeinträge für TMainMenu

[DeddyH]

Wenn Du nach dem Namen sortieren willst, vielleicht so (nur heruntergetippt, nicht getestet):

Delphi-Quellcode:

procedure TfrmMenue.FormCreate(Sender: TObject);
var i : Integer;
    c : TComponent;
    NewItem: TMenuItem;
    CompNames: TStringlist;
begin
  inherited;
  men := TMainMenu.Create(self);
  CompNames := TStringList.Create;
  CompNames.Sorted := true;
  try
    for i := 0 to ComponentCount - 1 do begin
      c := Components [i];
      if c is TmyPanel then
        CompNames.AddObject(c.Name, c);
    end;
    for i := 0 to CompNames.Count - 1 do
      NeuerMenueEintrag (men,CompNames.Objects[i] as TmyPanel);
  finally
    CompNames.Free;
  end;
end;