Скачать: CL | DM;

как поставить TrackMouseEvent ?   Найти похожие ветки 

← →
pirat ©   (2004-01-30 00:19) [0]

сабж
собственно функция выполняется правильно нон сообщения не приходят :( как быть ??

---

← →
Slym ©   (2004-01-30 09:27) [1]

ТЫ про сообщения WM_MOUSEHOVER и WM_MOUSELEAVE чтоли?
А привести содержание TRACKMOUSEEVENT не вылом?

---

← →
pirat ©   (2004-01-30 17:12) [2]

пишу

var
 tme : tagTRACKMOUSEEVENT;
...
 tme.cbSize := sizeof(tagTRACKMOUSEEVENT);
 tme.dwFlags := TME_QUERY or TME_HOVER or TME_LEAVE;
 tme.hwndTrack:= self.Handle;
 tme.dwHoverTime := 50;//HOVER_DEFAULT;
 if not TrackMouseEvent(tme) then
   somemessage...
 


потом пробовал так

procedure WMMouseHover(var Message : TMessage);message WM_MOUSEHOVER;
   procedure WMMouseLeave(var Message : TMessage);message WM_MOUSELEAVE;

а так же вот так

procedure TForm1.NewProc(var Message: TMessage);
begin

   if Message.Msg = WM_MOUSEHOVER then
    Caption := "hover" else
   if Message.Msg = WM_MOUSELEAVE then
    Caption := "leave";
     
OldProc(Message);
end;


И НИФИГА! =( и что я не так делаю ??

---

← →
DVM ©   (2004-01-30 17:51) [3]

А где ты ее ставишь? Тут идея какая: при перемещении мышки над окном надо в обработчике перемещения все время вызывать TME, тогда можно будет отловить факт ухода мышки с окна. При заходе мышки в окно сообщение и так придет.

---

← →
pirat ©   (2004-01-30 21:32) [4]

А примерчик можно ? Я конечно не совсем криворукий, но пока что у меня приходит только hover, и только при переходе между child и самим окном :(
Видел у мелкософта в knoleage base как это эмулировать на 95 и старых nt. А вот без всяких извратов обойтись можно?

---

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

Скачать: CL | DM;



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