THotKey - странная проблема

← →
Денис (2003-04-17 10:11) [0]

Приветствую.
Создаю визуальный компонент на основе TPanel, в составе которого должен быть компонент THotKey. Описываю
TMyComponent = class(TPanel)
HotKey: THotKey;
private
...
public
constructor Create(AOwner: TComponent); override;

В конструкторе пишу
HotKey := THotKey.Create(self);
HotKey.Top := 8;
HotKey.Left := 8;
HotKey.Parent := self;

Пока все работает. Но как только пытаюсь ниже добавить
HotKey.InvalidKeys := [hcNone];
HotKey.HotKey := 0;
HotKey.Modifiers := [hkShift];
- выдает ошибку Control "" has no parent window.

В чем проблема? Спасибо.

← →
NDeu © (2003-04-17 10:32) [1]

> HotKey.Parent := self;

Who is self ?
Сам HotKey !

← →
Денис (2003-04-17 10:52) [2]

А разве не TPanel?

← →
Денис (2003-04-17 11:43) [3]

Уважаемые, ну неужели ни у кого нет соображений на этот счет? Может что-нибудь нужно пояснить - я поясню. Мне нужно как-то решить эту проблему...

← →
Денис (2003-04-17 12:39) [4]

Нашел решение, которое мне кажется глупым. В конструкторе только создаю все внутренние компоненты. А в FormCreate той формы, где лежит мой компонент, вызываю специальный метод этого компонента, который проставляет все нужные мне свойства. Работает...

← →
DAT (2003-04-17 13:59) [5]

дело в том, что владельцем (Owner) визуально компонента всегда является форма, а родителем (Parent) - компонент на котором он расположен.
Поэтому:

HotKey := THotKey.Create(self.Owner);//HotKey := THotKey.Create(self) - здесь ошибка
HotKey.Top := 8;
HotKey.Left := 8;
HotKey.Parent := self;

THotKey - странная проблема Найти похожие ветки