События от мышки

← →
Lucefer (2003-03-06 16:28) [0]

Как в дельфи для панельки сэмулировать собыитя MouseIn, MouseOut?

← →
Dms (2003-03-06 16:39) [1]

зачем ?

← →
NAlexey © (2003-03-06 16:44) [2]

Ну а собственно так не заработает?
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
procedure TMainForm.CMMouseLeave(var Message: TMessage); begin if Message.LParam = Integer(YourPanel1) then (* *) inherited; end;

← →
NAlexey © (2003-03-06 16:48) [3]

Да и еще, тоже самое естественно и для CM_MOUSEENTER...

← →
Dms (2003-03-06 16:53) [4]

все таки просили сэмулировать, а не отловить ...

← →
Dms (2003-03-06 16:54) [5]

2 автор:
все таки зачем ? с какой целью ?

>все таки просили сэмулировать, а не отловить ...
Согласен, прогнал...

← →
Lucefer (2003-03-07 08:07) [7]

Ответ нашёлся сам собой. И как всегда окольными путями :-)

Была безумная идея, хотел сделать всплывающую панельку (и сделал) - для элементов фильтра таблицы. Собственно вот что получилось.
Кладу панельку. На неё выкладываю элементы управления. Задаю высоту в 5уе. Т.е. маленькая полоска. Отлавливаю события приход/уход мышки - соответсвенно меняю высоту панельки.
Загвоздка:
Если заход в панельку осуществляется непосредственно из грида при помощи клавиатуры. Мышка-то остаётся хз в каком положении...

Но всё равно спасибо за ответы... :-)

События от мышки Найти похожие ветки