VPF::Проблема с эмуляцией мышиного колеса

sanek198

Дата 11.10.2007, 19:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Делаю так:

Код


var
P:TPoint;
begin
 GetCursorPos(P);
  SendMessage(WindowFromPoint(P), WM_MOUSEWHEEL, 120, 0);
end;

Из всех окон прокручивается только окно Оперы, да и то только вниз. Пробовал также mouse_event (MOUSEEVENTF_WHEEL), вообще ни одно окно не реагирует. Что не так делаю?

MetalFan

Дата 11.10.2007, 23:17 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

а мсдн почитать?

Цитата(msdn)

wParam
The high-order word indicates the distance the wheel is rotated, expressed in multiples or divisions of WHEEL_DELTA, which is 120. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user.

The low-order word indicates whether various virtual keys are down. This parameter can be one or more of the following values.
MK_CONTROL
The CTRL key is down.
MK_LBUTTON
The left mouse button is down.
MK_MBUTTON
The middle mouse button is down.
MK_RBUTTON
The right mouse button is down.
MK_SHIFT
The SHIFT key is down.
MK_XBUTTON1
Windows 2000/XP: The first X button is down.
MK_XBUTTON2
Windows 2000/XP: The second X button is down.

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

There are always someone smarter than you...

sanek198

Дата 12.10.2007, 11:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

а мсдн почитать?

Читал уже. С отрицательным значением в другую сторону не прокручивается ( DWORD(-120) ). Подскажите, так в чем все таки дело?

dumb

Дата 12.10.2007, 11:58 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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

Цитата(sanek198 @ 12.10.2007, 12:15

)

Читал уже.

плохо, негодно читал.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
  Delta, VKeys: Integer;
begin
  GetCursorPos(P);
  Delta := StrToIntDef(Edit1.Text, 0); // берем из едита число
  if not CheckBox1.Checked then Delta := Delta * -1; // вверх-вниз
  VKeys := 0;{MK_CONTROL;} // сюда можно "как бы нажатые" кнопки вписать(список выше)
  SendMessage(WindowFromPoint(P), WM_MOUSEWHEEL, (Delta shl 16) or VKeys, DWORD(SmallPoint(P.X, P.Y)));
end;

sanek198

Дата 12.10.2007, 15:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Мда... действительно плохо читал...
Огромное спасибо! Буду изучать лучше! smile

Snowy

Дата 12.10.2007, 15:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


  mouse_event(MOUSEEVENTF_WHEEL, Mouse.CursorPos.X, Mouse.CursorPos.Y, dword(-120), 0); // вверх
  mouse_event(MOUSEEVENTF_WHEEL, Mouse.CursorPos.X, Mouse.CursorPos.Y, dword(120), 0); // вниз

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