Kolor buttona

Czy można zmienić kolor buttona (nie kolor fontu) ?

zmień Button na SpeedButton i Flat := True

widzisz znam trochę teorii Object Pascala i myślę że to może być coś podobnego do tego:

type
    TColorButton = class(TButton)
  private
    FColor : TColor;
  public
    function JakiKolor : TColor;
end;

potem:

function TColorButton.JakiKolor : TColor
  begin
    FColor : clRed;
    Result := FColor;
  end;

potem w OnCreate formy

var
  CButton : TColorButton;
begin
  CButton := TColorButton.Create;
  Cbutton.Free;
end;

Ale zdaje sie ze bylo prostsze rozwiazanie prezentowane na tym forum . cos z TMagic = class(TButton) potem TMagic.Color ...nie pamietam.. sorki

[diabel] na razie [diabel]