| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
mousewheel
focor © (2004-10-10 09:17:00)У меня мышь с восьмью кнопками.Как в делфи их можно опознать?
Как сделать опознавание из любого приложения?
TeNY (2004-10-24 13:49:00) [1]Рад оказать помощь :)
focor (2004-10-24 08:53:00) [2]Спасибо большое за оказанную помощь :)
TeNY (2004-10-23 15:26:00) [3]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-16 19:19:00) [4]Если бы у вас была такая мышь,то вы бы никогда не отказались от
нее (очень удобно,кстати).Так что зря смеетесь :0
KilkennyCat (2004-10-11 15:41:00) [5]
> Sunny Way © (11.10.04 12:39) [14]
согласен, сам когда-то производил нечто для своей проги, но запускать делфи мышиной выделенной кнопкой... можно подумать, сотню раз в день приходится запускать.
Sunny Way (2004-10-11 12:39:00) [6]Раз уж сам Anatoly Podgoretsky сиронизировал на тему многокнопочных мышей, позволю себе заметить, что для некоторых специализированных рабочих станциях они как нельзя кстати. Один из примеров -
http://www.racurs.ru/index.php?page=20
Что-то большое черное слева от обычной мышки - десятикнопочная мышка, позволяющая оператору при выполнении одинаковых рутинных действий обходиться ею совсем без клавиатуры, тем самым повышая эффективность работы.
TeNY (2004-10-11 06:52:00) [7]
> focor (10.10.04 09:17)
> У меня мышь с восьмью кнопками.Как в делфи их можно опознать?
> Как сделать опознавание из любого приложения?
Попробуй на форму брось ApplicationEvents1 и отлавливать все мессапги то есть ты получишь коды кнопок
Defunct (2004-10-11 06:49:00) [8]> наверное просто завидуете нам :)
Отнюдь..
Выбросил 5-ти кнопочную мышку, т.к. эти левые 3 кнопки постоянно мешали. Кликнешь случайно и на тебе - армагеддон ;)
2 кнопки + Wheel самое оно. А компилировать лучше с клавиатуры.
TeNY (2004-10-11 06:43:00) [9]зря смеётесь двухкнопошные,конечно 40 кнопок это много но 5ти кнопок мне вполне хватает на дополнительных 3х кнопках у меня висят такие функции как запуск дельфи,компиляция и выход,так что ЛЮДИ ва наверное просто завидуете нам :)
TUser (2004-10-11 06:08:00) [10]
> Hit года мышка с 40 кнопками.
Это не мышь с 40 кнопками, это - клава с лампочкой.
mtihonov (2004-10-11 05:29:00) [11]Вот он - западный снобизм , нет что'б как у всех нормальных людей - две, ну три кнопочки. А теперь ему скажи как ими пользоваться. Подари мне такую же - я глядишь разберусь и тогда скажу...
Palladin (2004-10-10 22:10:00) [12]Артемий Лебедев: 40 кнопок можно уложить в одну, если дать ей 40 свобод движения, НО КАК МОЖНО ПРОЩЕ!!!
Anatoly Podgoretsky (2004-10-10 22:08:00) [13]Hit года мышка с 40 кнопками. Заняла первое место по не нужным устройствам.
KilkennyCat (2004-10-10 21:30:00) [14]Вообще-то, к таким мышам драйв идет.
> TeNY © (10.10.04 17:31) [2]
> Не мутант а мышь с 8 кнопками у человека у мення их 5
"Урри, Урри, ты нашел у него кнопку?"
focor (2004-10-10 21:24:00) [15]Ну а как его споймать,когда форма не в фокусе?
Defunct (2004-10-10 19:53:00) [16][3] у форм похоже тоже.
Defunct (2004-10-10 19:51:00) [17]У фреймов есть события:
OnMouseWheelDown
OnMouseWheelUp
TeNY (2004-10-10 17:31:00) [18]Не мутант а мышь с 8 кнопками у человека у мення их 5 и подобный вопрос...Так что жду ответ(2х кнопочные отдыхают...:))
begin...end (2004-10-10 09:19:00) [19]Мутант, что ли?
| |
