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

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

---

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

спасибо, Gero

---

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

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



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