Image на компоненте

← →
i-am-vladko © (2006-12-18 17:31) [0]

Здравствуйте.
Есть почти готовый (;-) ) компонент - наследник TWinControl. Хочу сделать Image на нем, которую видно только Design-Time.
Подскажите как, plz
есть :
TMyComponent = class(TWinControl) private Title : TImage; ... end;
+

constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
if AOwner is TWinControl
then Parent := (AOwner as TWinControl);
Width := 100;
Height := 30;
Title := TImage.Create(self);
Title.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + PIC_NAME);
Title.Align := alClient;
Title.AutoSize := TRUE;
...
end;

картинку не видно ни Design-time, ни Run-time

← →
Ega23 © (2006-12-18 17:41) [1]

А Парент?

← →
i-am-vladko © (2006-12-18 17:43) [2]

constructor TMyComponent.Create(AOwner: TComponent); begin inherited Create(AOwner); if AOwner is TWinControl then Parent := (AOwner as TWinControl); Width := 100; Height := 30; Title := TImage.Create(self); // добавил - Title.Parent := self; // сейчас видно и Design-time и Run-Time. КАК СДЕЛАТЬ ЧТОБы ТОЛЬКО Design-time?? Title.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + PIC_NAME); Title.Align := alClient; Title.AutoSize := TRUE; ... end;

← →
Gero © (2006-12-18 18:30) [3]

> КАК СДЕЛАТЬ ЧТОБы ТОЛЬКО Design-time??

csDesigning in ComponentState

спасибо, Gero

Image на компоненте Найти похожие ветки