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

[Karstadt]

Hallo.

(Sender: TObject).

wie kann ich abfragen ob dieses Sender die Eigenschaft Color hat und wenn es die Eigenschaft gibt eine Color zuweisen z.b. clWhite

[Hawkeye219]

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

[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é

[Karstadt]

Viellen Dank!