Hallo Karstadt,
die folgende Routine könnte helfen:
Delphi-Quellcode:
// uses TypInfo;
procedure SetColorValue (aObject: TObject; aColor: TColor);
var
Info : PPropInfo;
begin
Info := GetPropInfo(aObject, 'Color');
if Assigned(Info) then
SetOrdProp(aObject, Info, aColor);
end;
Gruß Hawkeye