Die paar Zeilen sind kein Problem. Bzw. sie zu posten.
Delphi-Quellcode:
procedure TfrmMenue.FormCreate(Sender: TObject);
var i : Integer;
c : TComponent;
NewItem: TMenuItem;
begin
inherited;
men := TMainMenu.Create(self);
for i := 0 to ComponentCount - 1 do begin
c := Components [i];
if c is TmyPanel then
NeuerMenueEintrag (men,c as TmyPanel);
end;
end;
procedure TfrmMenue.NeuerMenueEintrag (var men : TMainMenu;c : TmyPanel);
var NewItem : TMenuItem;
i : Integer;
st : string;
begin
NewItem := TMenuItem.Create(men);
NewItem.Caption := c.Caption;
NewItem.Name := 'men' + copy (c.Name,4,length(c.Name));
ShowMessage(NewItem.Name+' '+IntToStr (c.TabOrder));
NewItem.OnClick := c.OnClick;
menu.Items.Add (NewItem);
end;
Vielleicht sieht ja einer was.