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