Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: 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 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.09 c
14-1119877554
Axis_of_Evil
2005-06-27 17:05
2005.07.18
Outsourcing


3-1118232939
vitge
2005-06-08 16:15
2005.07.18
Разработка БД для PALMа


5-1090750591
P.N.P.
2004-07-25 14:16
2005.07.18
PropertyEditor


1-1120025152
rooker
2005-06-29 10:05
2005.07.18
главное окно программы


14-1119363167
Игорь Шевченко
2005-06-21 18:12
2005.07.18
Ищутся компоненты для работы с протоколом SMPP