Клавиша мыши - Общие вопросы Delphi

-=Virus=- · 23.11.2009, 20:45

Подскажите какой код колёсика при нажатии на него.

Neeter · 23.11.2009, 21:12

Какой еще код колесика? Если вы про onMouseDown, то вот пример:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbMiddle then ShowMessage('middle button down');
end;

DeKot · 23.11.2009, 21:49

Запустите проект Дельфи, пустая форма, в Object Inspector заходим в События (Events) и смотрим OnMouseWheel (OnMouseWheelDown,OnMouseWheelUp).

-=Virus=- · 23.11.2009, 23:29

vk_RETURN вот дапустим как я понял это ентера

[MoNAMur] · 23.11.2009, 23:38

попробуй код написанный Neeter
обычно нажатие на колесик ассоциируется со средней кнопкой мыши

mihali4 · 24.11.2009, 00:21

Ответ дан - пост номер 2.

23.11.2009, 20:45	#1
-=Virus=- Форумчанин Регистрация: 03.07.2009 Сообщений: 246	Клавиша мыши Подскажите какой код колёсика при нажатии на него. Последний раз редактировалось -=Virus=-; 23.11.2009 в 20:48.

23.11.2009, 21:12	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Какой еще код колесика? Если вы про onMouseDown, то вот пример: Код: `procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbMiddle then ShowMessage('middle button down'); end;` Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

23.11.2009, 21:49	#3
DeKot Участник клуба Регистрация: 12.08.2008 Сообщений: 1,977	Запустите проект Дельфи, пустая форма, в Object Inspector заходим в События (Events) и смотрим OnMouseWheel (OnMouseWheelDown,OnMouseWheelUp). И не сомневайся даже ... отдых - кайф, работа - лажа!

23.11.2009, 23:38	#5
[MoNAMur] читер Форумчанин Регистрация: 05.10.2009 Сообщений: 150	попробуй код написанный Neeter обычно нажатие на колесик ассоциируется со средней кнопкой мыши $me = $me == $me ? $me : $me;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как проверить нажата ли любая клавиша (в том числе и на мыши)?	Вадим Буренков	Общие вопросы Delphi	11	07.07.2009 16:30
Нажата ли клавиша...	Xcopy	Паскаль, Turbo Pascal, PascalABC.NET	14	26.03.2009 11:14
TСhart, клик мыши и координаты XY, Определение координат оси при клике мыши	Aravild	Компоненты Delphi	1	31.01.2009 16:28
клавиша delete	andrey4623	Общие вопросы Delphi	6	17.01.2008 18:16
как отследить нажатие клавиши Delete	D-fens	Общие вопросы Delphi	4	07.06.2007 23:58

23.11.2009, 23:29	#4
-=Virus=- Форумчанин Регистрация: 03.07.2009 Сообщений: 246	vk_RETURN вот дапустим как я понял это ентера

24.11.2009, 00:21	#6
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Ответ дан - пост номер 2.