Einstieg in Zeiger auf Methoden / Funktionen

[Delphi.Narium]

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, ...

[himitsu]

Name (String) zu Methodenzeiger

* das gute alte TObject.MethodAddress (welches auch der DFM-Loader benutzt)
* oder über die RTTI TRttiMethod.CodeAddress


TRttiContext.Create.GetType(TIrgendwas).GetMethods -> Methode raussuchen (gibt leider kein FindMethod) und dann TRttiMethod.CodeAddress

Delphi-Quellcode:

var Method: TMethod;
Method.Code := CodeAddress;
Method.Data := KlassenInstanz;  // z.B. Self
x.OnIrgendwas := TNotifyEvent(Method);  // oder welchen Typ auch immer das OnIrgendwas hat

Delphi-Quellcode:

var Event: TMethod;

Event.Code := Self.MethodAddress('Test');
Event.Data := Self;

// oder
for var Method in TRttiContext.Create.GetType(Self.ClassType).GetMethods do
  if SameText(Method.Name, 'Test') then begin
    Event.Code := Method.CodeAddress;
    Event.Data := Self;
  end;