unbekannte Eigenschaften zur Laufzeit ändern

[Dezipaitor]

ich hab die lösung!!!

Code:

function Get_Method(Proc : Pointer) : TMethod;
begin
  result.Code := Proc;
  result.Data := nil;
end;
p.PropertyList['event'].MethodValue := Get_Method(@TMyObj.Test);

siehe auch im programm.


Also damit kann man die Eigenschaften ändern, ohne direkt auf die Eigenschaften zugreifen zu müssen. Man ändert sie über ihre Namen als String.