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

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

TObj = class(TGraphicControl) [D7, Win2k]

Isaak ©   (2006-06-22 15:18:00) 

Создаю компонент. Идея компонента - объединение в себе TLabel, TEdit и др.
Проблема. При проектировании формы вытаскиваю это компонент на форму. Создаются два - первый Obj1 там, где щелкнул мышкой и второй TLabel в левом верхнем углу формы с пустым свойством Name. Что я неправильно сделал и как сделать так, чтобы TLabel появлялся внутри Obj1?


 TObj = class(TGraphicControl)
 private
   FLabel: TLabel;
 public
   constructor Create(AOwner: TComponent); override;
 end;

constructor TObj.Create(AOwner: TComponent);
begin
 inherited;
 FLabel := TCustomLabel.Create(AOwner);
 FLabel.Parent := TWinControl(AOwner);
end;

---

StriderMan   (2006-06-23 15:25:00) [1]

> FLabel.Parent := TWinControl(self);

в случае если

> TGraphicControl заменить на TWinControl

можно просто Self;

но TWinControl не имеет свойства Canvas. Приедтся прикурчивать его ручками. Можно посмотреть как в TGraphicControl сделано.

---

Isaak   (2006-06-22 15:35:00) [2]

> StriderMa

Спасибо, что навели на мысль

---

Isaak   (2006-06-22 15:34:00) [3]

Я неправильно выбрал родительский класс. Нужно TGraphicControl заменить на TWinControl. А в конструкторе написать
FLabel.Parent := TWinControl(self);

---

StriderMan   (2006-06-22 15:23:00) [4]

вот здесь
FLabel.Parent := TWinControl(AOwner);

явно указывается что FLabel должен рисоваться на родителеObj1

A родителем Obj1 является форма или что-то на чем он лежит. Вот лэйбл на форме и рисуется.

По поводу Name. Он автоматически не заполняется.

---

Наверх