Suchst Du sinngemäß sowas? (nur ungetestet hingedaddelt - muss also nicht funktionieren)
Delphi-Quellcode:
uses
Typinfo, Menus, ...;
procedure TForm1.FormCreate(Sender: TObject);
var
sMethode : String;
mi : TMenuItem;
begin
Tabelle.Open;
while not Tabelle.Eof do begin
sMethode := Tabelle.FieldByName('MenueZuzuweisendeMethode').AsString;
if PropIsType(Self,sMethode,tkMethod) then begin
mi := TMenuItem.Create(Self);
mi.Caption := Tabelle.FieldByName('MenueCaption').AsString;;
mi.Name := Tabelle.FieldByName('MenueName').AsString;;
mi.Hint := Tabelle.FieldByName('MenueHint').AsString;;
SetMethodProp(mi,sMethode,GetMethodProp(Self,sMethode));
// ... und alle weiteren zu setzenden Eigenschaften ...
end;
Tabelle.Next;
end;
Tabelle.Close;
end;
Statt Self ggfls. die Klasse, bei der die gewünschten Methoden zu finden sind, z. B. ActionList, ...