Как заставить работать TTabSet в Design Time , Смена вкладок и перехват события MouseDown в Design Time

[Cyxapik]

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

Возникла необходимость в сабже. Суть в чём, в собственном компоненте 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];

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

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

Сообщение отредактировано: Cyxapik - 11.12.11, 13:27

[DimaBr]

procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message cm_DesignHitTest;
begin
  Result := 1;
end;

Сообщение отредактировано: DimaBr - 12.12.11, 05:52

[Cyxapik]

Цитата DimaBr @ 12.12.11, 05:52

cm_DesignHitTest

Спасибо, вопрос решён