Компонент ругается

← →
ivan_dishlenko (2002-05-17 13:42) [0]

По роду работы создаю приходится создавать компоненты. Часто случается когда при положении компонента (визуального) на окно Дельфи орет "Control "" has no parent window". Так или иначе я добивался, чтобы все работало. Но хочется знать, в чем же все-таки дело. Может знает кто. Помогите пожалуйста. Заранее признателен.

← →
Song (2002-05-17 13:46) [1]

TWinControl.Parent задаёте?

← →
Игорь Шевченко (2002-05-17 13:57) [2]

Дело в том, что происходит обращение к Handle компонента ДО ТОГО, как ему присвоен Parent. Происходит это исключение ЧАЩЕ ВСЕГО в методе TWinControl.CreateWnd.

С уважением,

← →
ivan_dishlenko (2002-05-17 14:45) [3]

А где ему Parent задавать. Вот конструкция:

Сие есть метод create:

inherited;
Width := 200;
Height := 100;
TabStop := True;
ParentColor := False;
FScrollBarOptions := TScrollBarOptions.Create(Self);

Если задать так:

inherited;
// no extra space for nodes needed
Parent := TWinControl(AOwner);
Width := 200;
Height := 100;
TabStop := True;
ParentColor := False;
FScrollBarOptions := TScrollBarOptions.Create(Self);

то полетит уже с Access Violation вместо предыдущего ругательства.

← →
Игорь Шевченко (2002-05-17 14:50) [4]

Посмотрите, как в VCL это обходят...

← →
ivan_dishlenko (2002-05-17 18:30) [5]

Всем спасибо. Разобрался.

Компонент ругается Найти похожие ветки