mousewheel

← →
focor (2004-10-10 09:17) [0]

У меня мышь с восьмью кнопками.Как в делфи их можно опознать?
Как сделать опознавание из любого приложения?

← →
begin...end © (2004-10-10 09:19) [1]

Мутант, что ли?

← →
TeNY © (2004-10-10 17:31) [2]

Не мутант а мышь с 8 кнопками у человека у мення их 5 и подобный вопрос...Так что жду ответ(2х кнопочные отдыхают...:))

← →
Defunct © (2004-10-10 19:51) [3]

У фреймов есть события:

OnMouseWheelDown
OnMouseWheelUp

← →
Defunct © (2004-10-10 19:53) [4]

[3] у форм похоже тоже.

← →
focor (2004-10-10 21:24) [5]

Ну а как его споймать,когда форма не в фокусе?

← →
KilkennyCat © (2004-10-10 21:30) [6]

Вообще-то, к таким мышам драйв идет.

> TeNY © (10.10.04 17:31) [2]
> Не мутант а мышь с 8 кнопками у человека у мення их 5

"Урри, Урри, ты нашел у него кнопку?"

← →
Anatoly Podgoretsky © (2004-10-10 22:08) [7]

Hit года мышка с 40 кнопками. Заняла первое место по не нужным устройствам.

← →
Palladin © (2004-10-10 22:10) [8]

Артемий Лебедев: 40 кнопок можно уложить в одну, если дать ей 40 свобод движения, НО КАК МОЖНО ПРОЩЕ!!!

← →
mtihonov © (2004-10-11 05:29) [9]

Вот он - западный снобизм , нет что"б как у всех нормальных людей - две, ну три кнопочки. А теперь ему скажи как ими пользоваться. Подари мне такую же - я глядишь разберусь и тогда скажу...

← →
TUser © (2004-10-11 06:08) [10]

> Hit года мышка с 40 кнопками.

Это не мышь с 40 кнопками, это - клава с лампочкой.

← →
TeNY © (2004-10-11 06:43) [11]

зря смеётесь двухкнопошные,конечно 40 кнопок это много но 5ти кнопок мне вполне хватает на дополнительных 3х кнопках у меня висят такие функции как запуск дельфи,компиляция и выход,так что ЛЮДИ ва наверное просто завидуете нам :)

← →
Defunct © (2004-10-11 06:49) [12]

> наверное просто завидуете нам :)

Отнюдь..

Выбросил 5-ти кнопочную мышку, т.к. эти левые 3 кнопки постоянно мешали. Кликнешь случайно и на тебе - армагеддон ;)

2 кнопки + Wheel самое оно. А компилировать лучше с клавиатуры.

← →
TeNY © (2004-10-11 06:52) [13]

> focor (10.10.04 09:17)
> У меня мышь с восьмью кнопками.Как в делфи их можно опознать?
> Как сделать опознавание из любого приложения?

Попробуй на форму брось ApplicationEvents1 и отлавливать все мессапги то есть ты получишь коды кнопок

Раз уж сам Anatoly Podgoretsky сиронизировал на тему многокнопочных мышей, позволю себе заметить, что для некоторых специализированных рабочих станциях они как нельзя кстати. Один из примеров -
http://www.racurs.ru/index.php?page=20
Что-то большое черное слева от обычной мышки - десятикнопочная мышка, позволяющая оператору при выполнении одинаковых рутинных действий обходиться ею совсем без клавиатуры, тем самым повышая эффективность работы.

> Sunny Way © (11.10.04 12:39) [14]

согласен, сам когда-то производил нечто для своей проги, но запускать делфи мышиной выделенной кнопкой... можно подумать, сотню раз в день приходится запускать.

← →
focor (2004-10-16 19:19) [16]

Если бы у вас была такая мышь,то вы бы никогда не отказались от
нее (очень удобно,кстати).Так что зря смеетесь :0

MSDN описывает 5 кнопок так что делай так
ставишь таймер,в нем пишеш
procedure TForm1.Timer1Timer(Sender: TObject); begin panel1.caption:=getbaton; end; ///////////////// funtion getbaton():string; var s:tkeyboardstate; b:byte; mousedown:string; begin mousedown:=""; GetKeyState(s); for b:=1 to 6 do if abs(s[b]div $80)=$80 then case b of 1:mousedown:=mousedown+"Левый батон "; 2:mousedown:=mousedown+"Правый батон "; 3:mousedown:=mousedown+"Средний батон "; 5:mousedown:=mousedown+"Х1 батон "; 6:mousedown:=mousedown+"Х2 батон "; else mousedown:="Ничего не нажато"; result:=mousedown; end;
К сожалению сканкоды других кнопок не знаю но ты можеш их сам просканить проверив если число в S[B]=1000хххх(binary)или 128 или 80h тогда кнопка нажата иначе не нажата на первый байт можеш забить так как он нужен лишЬ для хххLock разных,
Код проверен работает на моей 5 кнопочной мышке со стандартными видоскими дровами,если ставлю родные дрова то дополнительные кнопки вообще как бы исчезают,видать дрова всё перехватывают.

← →
focor (2004-10-24 08:53) [18]

Спасибо большое за оказанную помощь :)

Рад оказать помощь :)

mousewheel Найти похожие ветки