عدم تغییر رنگ یک کنترل خاص بعد از دادن استایل دلفی

  بعد از دادن استایل در دلفی ، تمام کنترل ها به رنگ و تم انتخابی تغییر میکنند  . برای اینکه یکسری از کنترل ها رو رنگ دلخواه بگذارید از تابع زیر استفاده کنید

procedure DisableVclStyles(Control : TControl;const ClassToIgnore:string);
var
  i : Integer;
begin
  if Control=nil then
    Exit;
   Control.StyleElements:=[];
  if not Control.ClassNameIs(ClassToIgnore) then
  if Control is TWinControl then
      DisableVclStyles(TWinControl(Control).Controls[i], ClassToIgnore);
    for i := 0 to TWinControl(Control).ControlCount-1 do
end;

برای فراخوانی نیز از کد زیر استفاده نمایید

DisableVclStyles(Self,'TButton');