[Aptyp]

Делаю компонент-кнопку от TCustomControl.
Её канвас создаю так в Create компонента:

Код:

FCanvas: TCanvas;
...
FCanvas := TControlCanvas.Create;
TControlCanvas( FCanvas ).Control := Self;

Ну и рисую на нём:

Код:

FCanvas.Draw( 0, 0, _BitMap );

Всё отлично работает до тех пор, пока родитель кнопки или его родитель или ещё выше по иерархии не сделает:

Код:

Parent := nil;

И если после этого что-то вызовет перерисовку кнопки, к примеру смена одного из её свойств, то "control has no parent window", в роли control-а в данной ошибке выступает естественно тот, у которого нет родителя. Можно конечно при каждой перерисовке циклом проверять родителей или обернуть в try ... except, но оба эти варианты ни в какие рамки конечно не лезут. Как это правильно сделать?

[NumLock]

У TCustomControl уже есть работающий Canvas.

[Aptyp]

Во-первых у него механизм создания канваса точно такой же. Собственно я оттуда и скопировал. Так вести себя должно абсолютно так же. Во-вторых мне нужен именно свой канвас, так как я в read методе свойства Canvas не всегда его отдаю.

[NumLock]

1. Обычный велосипед - лишнее.
2. Canvas у TCustomControl находится в protected. Изменить его у наследника проблем нет.

[Aptyp]

Чтобы не было мерцаний при внешней рисовке на компоненте, я придумал такой механизм:

Код:

property Canvas: TCanvas read GetCanvas;

...

function GetCanvas: TCanvas;
begin
  Result := FCanvasLink;
end;

procedure DoPaintEvent( _BitMap: TBitmap );
begin
  if Assigned( FOnPaint ) then
    begin
      FCanvasLink := _BitMap.Canvas;
      FOnPaint( Self );
      FCanvasLink := FCanvas;
    end;
  FCanvas.Draw( 0, 0, _BitMap );
end;

К тому же ещё компонент при смене какого-то св-ва, к примеру Enable, может вызвать перерисовку, так как нужна другая картинка. При этом поддерживается анимация и перерисовка может идти многократная в таймере. Но каждая перерисовка заканчивается в процедуре DoPaintEvent. Вот тут и возникает та самая ошибка, если один из родителей моего компонента имеет Parent=nil, кроме формы конечно.

[Aptyp]

Всё проблему решил. Рисую на отдельном BitMap и вызываю Invalidate. А в WMPaint уже рисую его на канвасе компонента. В таком случае винда уже сама заботиться о резоне посыла сообщения о перерисовке.