Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Как проверить, находится ли курсор над компонентом или нет? 


PlaZZma   (2002-02-12 17:17) [0]

Подскажите, плз, как проверить, находится ли курсор над компонентом или нет? Или как работать с CM_MOUSEENTER и CM_MOUSELEAVE.



Fedorenko Igor   (2002-02-12 17:21) [1]

используй событие OnMouseMove



Johnmen   (2002-02-12 17:33) [2]

>Fedorenko Igor : А если в данный момент мыша не мувится ?



Fedorenko Igor   (2002-02-12 17:47) [3]

Если не мувится, то смысла нет :)



Набережных С.   (2002-02-12 20:56) [4]

Так-же, как и любое другое сообщение:

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;


или так:


FOldBtnPrc:TWndMethod;

procedure TForm0.NewBtnPrc(var Msg: TMessage);
begin
case Msg.Msg of
CM_MOUSEENTER: Button2.Caption:="Enter";
CM_MOUSELEAVE: Button2.Caption:="Leave";
else FOldBtnPrc(Msg);
end;
end;

procedure TForm0.FormCreate(Sender: TObject);
begin
FOldBtnPrc:=Button2.WindowProc;
Button2.WindowProc:=NewBtnPrc;
end;



Бурундук   (2002-02-12 21:32) [5]

Стандартный обработчик сообщений CM_MOUSEENTER/CM_MOUSELEAVE
посылает их родителю(в lParam находится указатель на себя),
поэтому можно поймать их так (для контролов, которые лежат
непосредственно на форме):

TForm1 = class(TForm)
...
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
...
end;

procedure TForm1.CMMouseEnter(var Msg: TMessage);
begin
if Msg.lParam <> 0 then
Caption := "Enter " + TComponent(Msg.lParam).Name
else
Caption := "";
end;

Причем этот метод сработает и для потомков TGraphicControl.

(Для тех, чей Parent <> Form, можно переписать
оконную ф-ю у Parent"a, как было предложено выше)



PlaZZma   (2002-02-12 23:48) [6]

Аггггромное спасибо!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
7-90682           Ол11                  2001-11-22 12:24  2002.02.28  
Что предпочесть - плату PCI или LPT?


3-90528           DenK_vrtz             2002-02-01 11:01  2002.02.28  
Вопросик про фильтры(+)


1-90570           Tiny                  2002-02-11 14:30  2002.02.28  
Как динамически добавить Series в TChart ?


4-90718           Грифон                2001-12-26 22:40  2002.02.28  
Нестандартное окно


14-90656          NetBreaker666         2002-01-13 20:05  2002.02.28  
Зацените мою новую фишку ;)