| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Image на компоненте [D5]

i-am-vladko ©   (2006-12-18 17:31:00) 

Здравствуйте.
Есть почти готовый (;-) ) компонент - наследник 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

---

i-am-vladko   (2006-12-18 19:31:00) [1]

спасибо, Gero

---

Gero   (2006-12-18 18:30:00) [2]

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

csDesigning in ComponentState

---

i-am-vladko   (2006-12-18 17:43:00) [3]

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;

---

Ega23   (2006-12-18 17:41:00) [4]

А Парент?

---

Наверх