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



Автор: Ralph Friedman

Я хочу рисовать на холсте (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;


Далее: Как заставить GroupBox прорисовать на форме свой Caption неактивным цветом »»