VPF::Эмулировать Mouse5 - Форум программистов

Tokagero

Дата 3.6.2009, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 25.10.2006

Репутация: нет
Всего: нет

Добрый день, сегодня встал такой вопрос. Часто приходится работать с мышкой но тут проблемка. На мышке 5 кнопок и нуно программно клацать по 5ой кнопке. В нете гуглить сложно а тут подобного не нашел. Может кто сталкивался?

kami

Дата 3.6.2009, 23:48 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(Tokagero @ 3.6.2009, 23:29

)

На мышке 5 кнопок

See:
button1: WM_LBUTTONDOWN
button2: WM_RBUTTONDOWN
button3: WM_MBUTTONDOWN
button4: WM_XBUTTONDOWN с WParam=MK_XBUTTON1
button5: WM_XBUTTONDOWN с WParam=MK_XBUTTON2

А вообще - см. MSDN
параметры dwFlags (MOUSEEVENTF_XDOWN и иже с ним) и dwData - XButton1 и 2

Keeper89

Дата 4.6.2009, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Могу только добавить пример кода:

Код


procedure Button5MouseClick(pt: TPoint);

  // Переводим экранные координаты к принятым в mouse_event
  function ScreenToAbsolute(const pt: tpoint): tpoint;
  begin
    Result.x := Round(pt.x * 65535 / Screen.Width);
    Result.y := Round(pt.y * 65535 / Screen.Height);
  end;

const
  MOUSEEVENTF_XDOWN = $0080;
  MOUSEEVENTF_XUP = $0100;
  XBUTTON1 = $00000001;
  XBUTTON2 = $00000010;

begin

  pt := ScreenToAbsolute(pt);
  {Нажамаем кнопку мыши}
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_XDOWN, pt.x, pt.y, XBUTTON2, 0);
  {Отпускаем кнопки мыши}
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_XUP, pt.x, pt.y, XBUTTON2, 0);
end;

Это сообщение отредактировал(а) Keeper89 - 4.6.2009, 00:15

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

~FoX~

Дата 5.6.2009, 03:04 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Tokagero, Смотря какая мышь....У некоторых большие замарочки с кнопами, и их отлавливать можно только через их собственные драва...

Это сообщение отредактировал(а) ~FoX~ - 5.6.2009, 03:05

--------------------

…множественность никогда не следует полагать без необходимости…

dvamaster

Дата 9.6.2009, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Дровишки не причем, это стоят хуки утилит таких как запуск программ по нажатию этих кнопок

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »