Скачать: CL | DM;

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

← →
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
Тьфу ты черт, вот слона то я и не заметил :)
Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c