Alle DB Controls je nach state einfärben.

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