событие MouseMove

← →
crizis (2004-07-25 21:13) [0]

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

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

← →
P.N.P. © (2004-07-25 21:35) [1]

private procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;

← →
crizis (2004-07-25 21:45) [2]

Пасиба!
А можно вопрос в догонку?
Как можно узать, что нажата левая кнопка мыши
я пробывал так IF (ssLeft IN Shift), но это не работает...

← →
P.N.P. © (2004-07-25 22:06) [3]

Нажимаем левую кнопку :
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 22:09) [4]

пасип, но это немного не то... мне нужно узнать, нажата ли СЕЙЧАС левая кнопка
я пробую код наподобии IF KeysToShiftState(MK_LBUTTON) = ssLeft Then но это не работает

procedure tMygraphicControl.WMMouseMove(var Message: TWMMouseMove); begin if ssLeft in KeysToShiftState(Message.Keys) then end;

← →
crizis (2004-07-25 22:32) [6]

спасибо
это именно то, что я искал

событие MouseMove Найти похожие ветки