Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Вниз

Не могу поймать WM_MOUSELEAVE   Найти похожие ветки 

 
pasha_golub ©   (2004-03-12 10:28) [0]


TForm1 = class(TForm)
...
   procedure WndProc(var Message: TMessage); override;
 end;

...

procedure TForm1.WndProc(var Message: TMessage);
begin
if Message.Msg = WM_MOUSELEAVE then
     Application.MessageBox("vl;h",nil); //не срабатывает
inherited;
end;


 
Serge ©   (2004-03-12 10:30) [1]

cm_mouseleave


 
pasha_golub ©   (2004-03-12 10:32) [2]

Serge ©   (12.03.04 10:30) [1]
Сработало. НО чего-то яы не догоняю. Почему все-таки WM_MOUSELEAVE не ловится?


 
NAlexey ©   (2004-03-12 10:40) [3]

>pasha_golub ©
Ты не так ловишь.


 
pasha_golub ©   (2004-03-12 10:43) [4]

Я и так ловил:


...
procedure WMMouseLeave(Msg: TMessage); message WM_MouseLEAVE;


ТОже не ловилось.

2NAlexey ©   (12.03.04 10:40) [3]
А как ловить?


 
pasha_golub ©   (2004-03-12 10:55) [5]

Вообщем только что сильно удивился. Оказывается Виндоуз не посылает сама сообщения WM_MOUSELEAVE, а их надо генерировать самому. Или я чего-то не так понял?


 
NAlexey ©   (2004-03-12 11:09) [6]


procedure TForm1.xOnMessage(var Message: TMsg; var Handled: Boolean);
var
 Event: TTrackMouseEvent;
begin
 case Message.message of
 WM_MOUSEMOVE:
 begin
   with Event do
   begin
     cbSize := SizeOf(Event);
     dwFlags := TME_LEAVE;
     hwndTrack := Message.hwnd;
   end;
   _TrackMouseEvent(@Event);
 end;
 WM_MOUSELEAVE:
   Caption := "Leave";
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage := xOnMessage;
end;


 
pasha_golub ©   (2004-03-12 11:11) [7]

NAlexey ©   (12.03.04 11:09) [6]
Угу, это я уже нашел спасибо. Ну и геморрой.

А вот еще вопрос. Откуда идет посыл сообщения CM_MOUSELEAVE?


 
pasha_golub ©   (2004-03-12 11:17) [8]

Вот откуда посыл идет
function TApplication.DoMouseIdle: TControl;



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

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

Наверх




Память: 0.46 MB
Время: 0.032 c
1-1079600478
Виталик
2004-03-18 12:01
2004.04.04
Логические операции


14-1079075846
Bless
2004-03-12 10:17
2004.04.04
Песня из фильма "Логово койотов"


3-1078929227
Domkrat
2004-03-10 17:33
2004.04.04
Создание архива за месяц


11-1059319517
BelchonokH
2003-07-27 19:25
2004.04.04
pstream.free


3-1078404138
AlexA
2004-03-04 15:42
2004.04.04
как в run-time создать обработчик CalcFields





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский