Hat ein Sender:Tobject die Eingeschaft TColor? (abfragen)

[smudo]

Etwas allgemeiner kann man das auch so verwenden:

Delphi-Quellcode:

//Ermittelt, ob das Object eine Eigenschaft aPropName hat
function ObjectHaveProp(aObject: TObject; const aPropName: String):Boolean;
begin
  Result := Assigned(GetPropInfo(aObject, aPropName));
end;

//Setzt, wenn möglich, die Eigenschaft aPropName des Objects auf aValue
function SetObjectValue(aObject: TObject; const aPropName: String; const aValue: Variant):Boolean;
begin
  Result := ObjectHaveProp(aObject, aPropName);
  if Result then
    SetPropValue(aObject, aPropName, aValue);
end;

René