Falls es jemand interessiert :
Delphi-Quellcode:
procedure TfrmMenu.FormCreate(Sender: TObject);
var i : Integer;
c : TComponent;
begin
inherited;
sl := TStringList.Create;
for i := 0 to ComponentCount - 1 do begin
c := Components [i];
if c is TMyPanel then
sl.Add((c as TPanel).Caption);
end;
sl.Sort;
end;
Dank Objektablage haben das jetzt alle Forms und fertig.
@Deddy : Objects sind da etwas zu viel des Guten. Zumindest bei mir ist die Caption zur Sortierung geeignet.