habs gelöst...
aus (mir) unerklärlichen Gründen funktioniert es, wenn ich die Klassenreferenz auf TPersistent caste...
ist doch beides nur ein Pointer, oder seh ich das falsch?
Delphi-Quellcode:
c:=comp;
while c.GetParentComponent<>nil do c:=c.GetParentComponent; //get the form
c:=c.FindComponent(Value);
if (not assigned(c)) and (Value<>'') then
showmessage('Component not found')
else
SetOrdProp(obj,pi,integer(TPersistent(c)));