|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.01.2008, 00:54 | #1 |
Форумчанин
Регистрация: 08.07.2007
Сообщений: 154
|
мышь в паскале.
глуплю но.. какие там модули и функции для того чтоб мышь в паскале была? сам не пользовался и не надо было и как её координаты определить?
|
13.01.2008, 03:18 | #2 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
Эх, давно это было... Насколько я помню нет таких модулей. В свое время использовал int 33h. В DOS это интерфейс для работы с грызуном.
|
13.01.2008, 08:53 | #3 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Координаты мыши определить нельзя, т.к. она на столе ползает, а координаты курсора в графическом режиме определить можно.
Цитата:
|
|
13.01.2008, 11:03 | #4 |
Форумчанин
Регистрация: 08.07.2007
Сообщений: 154
|
Я тож думал что нельзя но вот в университете заметил книгу для макулатуры. взглянул на облошку.. назание турбо паскаль- задания и на 22. странице раздел мышь и клавиатура. там и задание для мыши были. з.ы. не такой тупой.. про курсор знаю.
|
13.01.2008, 12:09 | #5 |
Средний прогер
Форумчанин
Регистрация: 16.01.2007
Сообщений: 123
|
|
13.01.2008, 13:19 | #6 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,691
|
Вот еще одна хорошая библиотека+описание:
|
10.03.2008, 14:50 | #7 |
Новичок
Джуниор
Регистрация: 21.01.2008
Сообщений: 2
|
Можно управлять с помощью встоенного ассемблера:
Общий вид: asm <ассемблеровские операторы> end; После оператора в ассемблере не надо ставить символ ; Каждый оператор обязательно нужно писать с новой строки. Для управления мышью используется прерывание $33 Команды производятся через регистры. Для мыши хватит регистров ax,bx,cx,dx. mov - оператор присваивания в ассемблере. например: mov b,ax , где переменной b присваевается значение регистра ax Для выполнения определённой команды с мышью в регистр ax помещаются следующие значения: mov ax,$00 - инициализация мыши. После инициализации курсор не появляется mov ax,$01 - сделать курсор видимым mov ax,$02 - сделать курсор невидимым mov ax,$03 - определить координаты мыши в данный момент. При вызове этой команды и прерывания $33 информация о координатах помещается в регистры cx(по х) и dx(по y). Вот процедура, определяющая координаты мыши в данный момент procedure koord(var x,y:word); var a,b:word; begin asm mov ax,$03 {поместили в регистр ax значение $03} int $33; {указали прерывание работы с мышью. После указания этого прерывания ассемблер поместил в регистры cx и dx координаты курсора мыши} mov a,cx mov b,dx { извлекли из этих регистров координаты} end; x:=a; y:=b; end; Последний раз редактировалось MaxiMus_03; 10.03.2008 в 14:53. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Мышь | Михаил Юрьевич | Общие вопросы Delphi | 8 | 09.06.2008 11:23 |
Мышь многокнопочная | NoName_emaNoN | Win Api | 9 | 14.12.2007 14:31 |
Клавиатура и мышь | Борис2 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 11.12.2007 23:32 |
Клава&мышь | MAcK | Win Api | 5 | 23.08.2007 15:33 |
Мышь | kl45gp | Общие вопросы Delphi | 7 | 16.06.2007 22:47 |