Не получается выловить событие OnMouseDown.

← →
oleg_SYS © (2003-07-09 16:43) [0]

Такая проблема: есть компонент, у которого имеется обработка события OnClick. Но мне нужно выловить событие нажатия по нему правой кнопкой мыши.
Сделал так:
- добавил классу событие
Tmycontrol =class (TControl) ... private procedure WMRButtonDown(var Msg: TWMMouse); message WM_RBUTTONDOWN;
- и обработчик
procedure TControl.WMRButtonDown(var Msg: TWMMouse); begin end;
Но никакого события не произошло. Есть ли возможность как-то выловить это событие?

← →
maxic (2003-07-09 16:45) [1]

Опередил прямо на несколько секунд :) Та же проблема, НА ПОМОЩЬ!

← →
Skier © (2003-07-09 16:46) [2]

1) Лучше так procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
2)

> Но никакого события не произошло.

Как узнал ?

← →
maxic (2003-07-09 16:48) [3]

> Skier
На точку останова не реагирует, действий никаких не производит. Если перенести сию процедуру на форму - все Ок. Почему?

← →
maxic (2003-07-09 16:50) [4]

> Skier
Насчет Message: TWMRButtonDown - так и есть, но результат отсутствует!

← →
Skier © (2003-07-09 16:51) [5]

>maxic (09.07.03 16:48)

> Почему?

Невизуальный компонент.

← →
maxic (2003-07-09 16:54) [6]

> Skier
Наоборот, визуальный, кнопка на форме...
Тем более вот эти процедуры работают:
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

← →
Skier © (2003-07-09 16:56) [7]

>maxic (09.07.03 16:54)
Код компонента покажи.

← →
maxic (2003-07-09 17:10) [8]

Все, нашел, век живи - век учись: поверх другой компонент лежал...

>maxic (09.07.03 17:10)
Смешно ! :)

Skier, я поставил обработку события между begin и end; , но этот код не выполнился. А тебе, maxic, "спасибо", что "помогаешь" решить проблему. Если я не доделаю проект до сегоднешнего вечера, то я труп :(

Не получается выловить событие OnMouseDown. Найти похожие ветки