|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.06.2010, 10:23 | #1 |
C++, Java
Старожил
Регистрация: 10.04.2010
Сообщений: 2,665
|
PaintBox
Как проверить, зажата ли левая кнопка мыши?
|
22.06.2010, 10:25 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then... end; |
22.06.2010, 10:40 | #3 |
C++, Java
Старожил
Регистрация: 10.04.2010
Сообщений: 2,665
|
Ясно, а как проверить, что мышь ещё одновременно и двигается?(т.е. левая кнопка зажата и мышь двигается, просто через таймер как-то не очень)
|
22.06.2010, 10:43 | #4 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Ну вы хоть свойства компонента посмотрите....
Код:
Последний раз редактировалось SERG1980; 22.06.2010 в 10:56. |
22.06.2010, 10:49 | #5 |
Участник клуба
Регистрация: 15.01.2010
Сообщений: 1,325
|
Предвосхищаю ваш возможный следующий вопрос.
SERG1980 вам правильно сказал. Только в этом обработчике не удастся задействовать if Button = mbLeft then... поэтому создайте глобальную переменную типа boolean и в OnMouseDown приравнивайте, например, к true. А в OnMouseMove проверяйте ее на это значение.
Грибы - они разные. Один тебя накормит, другой тебе кино покажет...
Редактор журнала "[ПРОграммист]" Yan's Home Digital Lab |
22.06.2010, 11:06 | #6 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Также в событие MouseMove приходит параметр Shift, в нем все что нужно есть.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
22.06.2010, 11:37 | #7 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Ну и небольшой примерчик
Код:
|
22.06.2010, 11:45 | #8 |
Участник клуба
Регистрация: 15.01.2010
Сообщений: 1,325
|
А я и не знал на счет ssLeft. Стыдно
Грибы - они разные. Один тебя накормит, другой тебе кино покажет...
Редактор журнала "[ПРОграммист]" Yan's Home Digital Lab |
22.06.2010, 13:33 | #9 | |
C++, Java
Старожил
Регистрация: 10.04.2010
Сообщений: 2,665
|
Цитата:
|
|
22.06.2010, 14:34 | #10 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
текст в PaintBox | krikaved | Общие вопросы Delphi | 5 | 06.05.2010 19:05 |
Вопрос по PaintBox | rainbow | Общие вопросы Delphi | 1 | 07.04.2010 11:21 |
PaintBox Delphi | Dalagardi | Помощь студентам | 2 | 30.03.2010 20:43 |
Paintbox | lacost | Мультимедиа в Delphi | 3 | 14.01.2009 09:53 |
paintbox | steck | Общие вопросы Delphi | 5 | 28.10.2007 16:15 |