Error: "Canvas does not allow drawing", Delphi7

[VVM]

Доброе время суток!
Никак не пойму в чем дело. Поиск не помог, в сети на нашел Pls help!
Цель - создать цветную кнопочку именно на основе TButton =-)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TCanvasedButton = class(TButton)
  private
    FCanvas: TControlCanvas;
  public
    constructor Make(AOwner: TComponent);
    destructor Kill;
    property Canvas: TControlCanvas read FCanvas write FCanvas;   
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormClick(Sender: TObject);
  private
    Btn: TCanvasedButton;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  Btn := TCanvasedButton.Make(Self);
  Btn.Canvas.FloodFill(0, 0, clRed, fsSurface); //Исключение вылетает здесь
  try
    Bmp.LoadFromFile('Fon.bmp');
    Form1.Canvas.Draw(0, 0, Bmp);
    Form1.OnPaint := Form1.OnClick;
  finally
    FreeAndNil(Bmp);
  end;
end;

{ TCanvasedButton }

destructor TCanvasedButton.Kill;
begin
  FreeAndNil(FCanvas);
  inherited Destroy;
end;

constructor TCanvasedButton.Make(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Canvas := TControlCanvas.Create;
end;

end.

[Daramant]

1. Исключение вылетает из-за того, что не определен контрол, на котором будет отрисовываться Canvas:

constructor TCanvasedButton.Make(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Canvas := TControlCanvas.Create;

  Canvas.Control := self; // <-- добавил
end;

2. Ты не правильно создаешь кнопку, если кнопка создается динамически, то и параметры ей необходимо устанавливать самому:

  Btn := TCanvasedButton.Make(Self);
  Btn.Top := 10;
  Btn.Left := 10;
  Btn.Parent := Form1; // кто будет родителем, т.е. на чем будет отображаться кнопка
  Btn.Caption := 'my button';

Я вынес загрузку картинки и создание копки в конструктор формы.
Будет как-то так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TCanvasedButton = class(TButton)
  private
    FCanvas: TControlCanvas;
  public
    constructor Make(AOwner: TComponent);
    destructor Kill;
    property Canvas: TControlCanvas read FCanvas write FCanvas;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Btn: TCanvasedButton;
    Bmp: TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
begin
  Canvas.Pen.Color := clWhite;
  Btn.Canvas.Brush.Color := clRed;
  Btn.Canvas.FillRect(Btn.ClientRect);

  Btn.Canvas.LineTo(10, 10);

  Form1.Canvas.Draw(0, 0, Bmp);
end;

{ TCanvasedButton }

destructor TCanvasedButton.Kill;
begin
  FreeAndNil(FCanvas);
  inherited Destroy;
end;

constructor TCanvasedButton.Make(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Canvas := TControlCanvas.Create;

  Canvas.Control := self; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Btn := TCanvasedButton.Make(Self);
  Btn.Top := 10;
  Btn.Left := 10;
  Btn.Parent := Form1;
  Btn.Caption := 'my button';

  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('image.bmp');
  Form1.OnPaint := Form1.FormClick;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Btn.Free;
  Bmp.Free;
end;

end.

Но это не то.
Кнопка будет красной при клике не на нее (по форме и др.), но при клике на нее она перерисовывается и принимает стандартный вид.

Если хочешь создать свою кнопку, с собственной отрисовкой, то наследуй ее от TCustomControl.
Не буду пересказывать, вот статься:
http://svdpro.info/page.php?id=34

[VVM]

Canvas.Control := self; // <-- добавил

Ах вот где собака зарыта =)
Большое спасибо!