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

событие 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 но это не работает

---

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

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

end;

---

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

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

---

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

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



Память: 0.46 MB
Время: 0.023 c