VPF::Как заставить работать TTabSet в Design Time

Neo_h

Дата 11.12.2011, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 20.12.2007

Репутация: нет
Всего: нет

Доброго времени суток smile

Возникла необходимость в сабже. Суть в чём, в собственном компоненте TTabSet используется, как элемент управления в Design Time, конструктор моего компонента:

Код


 ControlStyle := ControlStyle + [csAcceptsControls];
 
 if csDesigning in ComponentState then
 begin
   FTabs := TTabSet.Create(Self);
   FTabs.Parent := Self;
 
   FTabs.ControlStyle := FTabs.ControlStyle + [csClickEvents, csCaptureMouse];
   FTabs.OnChange := OnTabChange;
 end;

Компонент наследую от TCustomControl.

Но событие MouseDown не генерируется в DesignTime(ни у моего компонента, ни у TTabSet), собственно пробовал и у своего компонента:

Код


ControlStyle := ControlStyle + [csAcceptsControls, csClickEvents, csCaptureMouse];

но результата это не дало...

Подскажите в каком направлении смотреть?

Neo_h

Дата 12.12.2011, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 20.12.2007

Репутация: нет
Всего: нет

Вопрос решён:
http://www.delphi3000.com/articles/article_668.asp?SK=
http://www.delphifaq.net/delphi-component-messages/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »