[RTTI] tkClass setzen

[_frank_]

Hi,
kann mir jemand sagen, wie man properties vom Typ tkClass setzen kann?
die foresuche und google haben mir keine ausreichenden infos gegeben...

ich habe es so probiert (es kommt keine exception, jedoch wird das property auch nicht gesetzt):

Delphi-Quellcode:

function SetProperty(comp:TComponent;prop:string;var value:string):boolean;
//comp ist das zu modifizierende Control in meinem Fall das Form selbst
//prop in meinem Fall das ActiveControl
//Value in meinem Fall Button3 (existiert, wird auch gefunden per findComponent)
var pi:PPropInfo;
    obj:TObject;
    p:integer;
    c:TComponent;
begin
  ...//andere typen setzen, funktioniert (enum, string, set, integer)
  else if pi.PropType^.Kind in [tkClass] then
  begin
    c:=comp;
    while c.GetParentComponent<>nil do c:=c.GetParentComponent;
    //showmessage(c.classname);  //das formular
    c:=c.FindComponent(Value); //das control im formular suchen (wird korrekt gefunden)
    SetOrdProp(obj,pi,longint(c));
  end;
end;

ob es gesetzt ist, prüfe ich mit folgender funktion (wird korrekt ausgelesen, wenn property vorher anders gesetzt wird (aus dfm)):

Delphi-Quellcode:

function getClassName(instance:TObject;PropInfo:pPropInfo):string;
var i:integer;
begin
  i:=getOrdProp(instance,PropInfo);
  if i<>0 then //=nil
  begin
    if TObject(i) is TComponent then
      result:=TComponent(i).Name
    else
      result:=TObject(i).ClassName;
  end else
    result:='';
end;

Gruß Frank

[_frank_]

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)));