Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

событие MouseMove [D6, WinXP]

crizis © (2004-07-25 21:13:00)
Здравствуйте.
Заранее извиняюсь за дурацкий вопрос, но я разработкой компонент раньше не занимался, поэтому сейчас много проблем =(
Есть компонент, наследник TGrahicsControl, в котором мне нужно поставить код на событие MouseMove
Простое объявление, типа protected procedure MouseMove; override; не помогает, хотя тот же Click ловится нормально...=(

как можно поймать это событие?

crizis (2004-07-25 22:32:00) [1]
спасибо
это именно то, что я искал

P.N.P. (2004-07-25 22:20:00) [2]
procedure tMygraphicControl.WMMouseMove(var Message: TWMMouseMove); begin if ssLeft in KeysToShiftState(Message.Keys) then end;

crizis (2004-07-25 22:09:00) [3]
пасип, но это немного не то... мне нужно узнать, нажата ли СЕЙЧАС левая кнопка
я пробую код наподобии IF KeysToShiftState(MK_LBUTTON) = ssLeft Then но это не работает

P.N.P. (2004-07-25 22:06:00) [4]
Нажимаем левую кнопку :
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
Нажимаем правую кнопку :
procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
Нажимаем среднюю кнопку :
procedure WMMButtonDown(var Message: TWMMButtonDown); message WM_MBUTTONDOWN;

crizis (2004-07-25 21:45:00) [5]
Пасиба!
А можно вопрос в догонку?
Как можно узать, что нажата левая кнопка мыши
я пробывал так IF (ssLeft IN Shift), но это не работает...

P.N.P. (2004-07-25 21:35:00) [6]
private procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »