Рисование на GroupBox

Я хочу рисовать на холсте (Canvas) моего компонента GroupBox. Но когда я пробую рисовать на Component.Parent.Canvas, рисование происходит на форме, а не на моем компоненте GroupBox. Что я делаю неправильно?

Canvas - защищенное свойство TGroupBox и, поэтому, недоступное. Вы можете сделать его доступным следующим образом:

type TMyGroupBox = class(TGroupBox)
public property Canvas; end;
procedure SomeProcedure;
begin
... with TMyGroupBox(GroupBox1).Canvas do CopyRect(ClipRect, Image1.Canvas, ClipRect); ... end;

- Ralph Friedman [001126]

Содержание раздела