Изображение на компоненте при его создании

← →
maxic (2003-07-08 11:02) [0]

Скажите, как при создании компонента (работает его Create) нарисовать на нем изображение? Делаю вот так (ниже), но ничего не получается:

TComp = class(TWinControl)
private
FImage: TImage;
......
public
constructor Create(AOwner: TComponent); override;
......
end;

......

constructor TComp.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

Width:=32;
Height:=32;

FImage:=TImage.Create(Self);
with FImage do
begin
Align:=alClient;
AutoSize:=true;
Transparent:=true;
Canvas.Rectangle(0, 0, 32, 32);
end;
end;

← →
Hooch (2003-07-08 11:03) [1]

with FImage do
begin
Parent := Self
видимо это

← →
maxic (2003-07-08 11:08) [2]

> Hooch
Тьфу ты черт, вот слона то я и не заметил :)
Спасибо!

Изображение на компоненте при его создании Найти похожие ветки