Gibt es etwas wie "FindProcedure"?

[ManBu]

Hi,

folgender Code sollte das machen was du willst. Funktioniert allerdings nur solange die gesuchten Methoden published sind.

Code:

Type
   TTest = Class(TObject)
   (...)
   public
      function  FindProcedure(const _Name : String) : TNotifyEvent; 
   published
      procedure Prozedur1(Sender : TObject);
      procedure Prozedur2(Sender : TObject);
   End;

function  TTest.FindProcedure(const _Name : String) : TNotifyEvent;
var
   m : TMethod;
begin
   m.Data := Pointer(Self);
   m.Code := Self.MethodAddress(Name);

   Result := TNotifyEvent(m);
end; 

procedure TTest.ProzedurenZuordnen(Vorgabe: String);
begin
   Komponente.OnClick := FindProcedure(Vorgabe);
end;