|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.07.2009, 16:28 | #1 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 84
|
Вопрос про события мыши?
У меня вопрос .Я делаю не большой векторный редактор и мне приходится пользоваться OnMouseDown,MouseMove и OnMouseUp а, можно ли в одном событии обрабатывать все эти 3 события? А то мне приходится прыгать во все эти события и это как то не удобно .
Evil Skull
|
17.07.2009, 16:57 | #2 |
Пользователь
Регистрация: 17.12.2008
Сообщений: 50
|
что ты имеешь ввиду под "в одном событии обрабатывать все 3 события" Можешь написать процедуру, в которой будешь проверять все эти 3 свойства и в каждом событии просто написать обращение к данной процедуре..
|
17.07.2009, 17:03 | #3 |
Форумчанин
Регистрация: 29.05.2009
Сообщений: 384
|
Может так:
Код:
|
17.07.2009, 17:19 | #4 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 84
|
Это не плохой вариант .Но а можно сделать такую процедуру что бы вообще не приходилось в них не чего писать(MouseUp,MouseDown...) ну или хотя бы в одну писать а выглядело это так?
prosedure Name; begin if клавиша мыши нажата then ...... if мышь шевелится then ...... if клавиша мыши отпущена then ...... if нажаты клавиши клавиатуры then ...... end
Evil Skull
|
17.07.2009, 17:32 | #5 |
Форумчанин
Регистрация: 29.05.2009
Сообщений: 384
|
Вот пример попробуй:
Код:
Последний раз редактировалось Evgeniy26; 17.07.2009 в 17:45. |
17.07.2009, 17:47 | #6 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 84
|
Я сделал
if (Msg.Msg = MWM_LBUTTONDOWN) then begin label1.caption:='1'; end; if (Msg.Msg = MWM_MBUTTONDOWN) then begin label1.caption:='2'; end; ......... но почему то не чего не меняется при нажатии клавиши
Evil Skull
|
17.07.2009, 22:00 | #7 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 84
|
Всё спасибо разобрался.
Evil Skull
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос про кординаты мыши. | juan666777 | Общие вопросы Delphi | 8 | 30.01.2009 21:41 |
Как заставить компонент TTrackBar обрабатывать события мыши? | Никки | Общие вопросы Delphi | 5 | 29.08.2008 14:17 |
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) | Albert2008 | Общие вопросы Delphi | 4 | 21.08.2008 15:33 |
Вопрос с подключением мыши в графическом режиме | Unconnected | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 01.07.2008 10:26 |
У меня вопрос про базы данных,а точнее про таблицы!!! | Alexij | Общие вопросы Delphi | 1 | 13.04.2008 23:24 |