Alle DB Controls je nach state einfärben.

[Bummi]

Du hast es doch eh schon fast ....

Delphi-Quellcode:

if IsPublishedProp (ctrl, 'Color') then
    begin
      SetPropValue (ctrl, 'Color',clLime);  // was auch immer
    end;

[Kostas]

Zitat von Bummi:

Delphi-Quellcode:

if IsPublishedProp (ctrl, 'Color') then
    begin
      SetPropValue (ctrl, 'Color',clLime);  // was auch immer
    end;

Hallo Thomas,
das Problem ist, nicht jedes Control welches ein DataSource Published hat,
auch eingefärbt werden darf. Als Beispiel wäre da das Grid. Beim Grid
soll die Zeile eingefärbt werden nicht der komplette Hintergrund. Deshalb
würde ich gerne ein Set haben(im Source händisch gepflegt) mit allen relevanten
Controls die ich einfärben möchte- so die ursprüngliche Idee.

[Bummi]

Mit einem Set wird es nicht gehen, aber Du kannst die gewünschten Klassen auf folgende Art eingrenzen.

Delphi-Quellcode:

Const
C_CLASSARRAY:Array[0..2] of TClass=(TButton,TEdit,TLabel);

implementation

{$R *.dfm}


Function IsInClassArray(o:TObject):Boolean;
var
 i:Integer;
begin
  i := -1;
  Result := false;
  if Assigned(o) then
  while not Result and  (i<High(C_CLASSARRAY))  do
    begin
       inc(i);
       Result := o.ClassType= C_CLASSARRAY[i];
    end;
end;