Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.141.29.145] |
|
Сообщ.
#1
,
|
|
|
Доброго времени суток
Возникла необходимость в сабже. Суть в чём, в собственном компоненте 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]; но результата это не дало... Подскажите в каком направлении смотреть? |
Сообщ.
#2
,
|
|
|
procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message cm_DesignHitTest; begin Result := 1; end; |
Сообщ.
#3
,
|
|
|
Цитата DimaBr @ cm_DesignHitTest Спасибо, вопрос решён |