Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как заставить работать TTabSet в Design Time

Автор: Neo_h 11.12.2011, 16:58

Доброго времени суток 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

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