Hallo,
in meinem aktuellen Projekt erzeuge ich dynamische Objekte, denen wiederum Methoden zugewiesen werden sollen, die als Strings übergeben werden und die bereits erstellt wurden.
Als Beispiel:
Delphi-Quellcode:
procedure Tform.Prozedur1(Sender: TObject);
...
procedure Tform.Prozedur2(Sender: TObject);
...
procedure Tform.ProzedurenZuordnen(Vorgabe: String);
begin
if(Vorgabe = 'prozedur1') then Komponente.OnClick := Prozedur1
else if(Vorgabe = 'prozedur2') then Komponente.OnClick := Prozedur2;
end;
Mein Gedanke ist nun, dass dies die etwas unelegantere Lösung ist, da wesentlich mehr Prozeduren vergeben werden müssten. Also bräuchte ich etwas in der Form von
Delphi-Quellcode:
procedure Tform.ProzedurenZuordnen(Vorgabe: String);
begin
Komponente.OnClick := FindProcedure(Vorgabe);
end;
(Ich hoffe, dass das halbwegs nachvollziehbar ist)
Leider kann ich nichts finden, was auch nur halbwegs in diese Richtung geht.
Hat jemand von euch einen Tipp, wie ich das umsetzen könnte?
Danke
Opa