Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

ПРОБЛЕМА. Делаю компонент PageControl (наследник TCustomControl)   Найти похожие ветки 

← →
Артем К.   (2005-02-03 13:45) [0]

Привет, Мастера!

Подскажите пожалуйста...

Делаю компонент типа PageControl, но не его потомок, а наследник от TCustomControl... (свой короче).

У TPageControl когда в Design-тайме выбираем закладку, то соответственно она активизируется и показывается ее страница (Page).

Я хотел узнать как в Design-тайме можно сделать реакцию компонента на клик мышки...

Спасибо!

---

← →
Артем К.   (2005-02-04 02:37) [1]

Мастера, помогите, пожалуйста!

---

← →
GuAV ©   (2005-02-04 03:07) [2]

TPageControl + Ctrl Click

type
 TArtemKPageControl = class(TCustomControl)
   ...
 protected
   procedure Click; override;
   procedure CMDesignHitTest(var Message:
     TCMDesignHitTest); message CM_DESIGNHITTEST;
   ...
 end;

...

implementation

...

procedure TArtemKPageControl.Click;
begin
 ShowMessage("Я те кликну !");
 // Ловит и в рантайме
 // можно проверять csDesigning in ComponentState
 // чтобы ловить только в дезайнтайм
 inherited;
end;

procedure TArtemKPageControl.CMDesignHitTest(
 var Message: TCMDesignHitTest);
begin
 if Message.Pos.y < 15 then // верх контрола
 begin
   Message.Result := 1;
 end;
end;

---

← →
Артем К.   (2005-02-04 06:22) [3]

>>GuAV Спасибо!

---

← →
Rule ©   (2005-02-04 09:00) [4]

А помоему есть такой компонент ...

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c