Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2008, 00:54   #1
Iceman
Форумчанин
 
Регистрация: 08.07.2007
Сообщений: 154
По умолчанию мышь в паскале.

глуплю но.. какие там модули и функции для того чтоб мышь в паскале была? сам не пользовался и не надо было и как её координаты определить?
Iceman вне форума Ответить с цитированием
Старый 13.01.2008, 03:18   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Эх, давно это было... Насколько я помню нет таких модулей. В свое время использовал int 33h. В DOS это интерфейс для работы с грызуном.
Баламут вне форума Ответить с цитированием
Старый 13.01.2008, 08:53   #3
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Координаты мыши определить нельзя, т.к. она на столе ползает, а координаты курсора в графическом режиме определить можно.
Цитата:
В графическом режиме курсор невидим, его положение можно определить функциями, возвращающими значения координат:
GetX; - по оси "Х", GetY; - по оси "Y".
Установка курсора в нужную позицию
GotoXY (х,у) ;
puporev вне форума Ответить с цитированием
Старый 13.01.2008, 11:03   #4
Iceman
Форумчанин
 
Регистрация: 08.07.2007
Сообщений: 154
По умолчанию

Я тож думал что нельзя но вот в университете заметил книгу для макулатуры. взглянул на облошку.. назание турбо паскаль- задания и на 22. странице раздел мышь и клавиатура. там и задание для мыши были. з.ы. не такой тупой.. про курсор знаю.
Iceman вне форума Ответить с цитированием
Старый 13.01.2008, 12:09   #5
Cezar
Средний прогер
Форумчанин
 
Аватар для Cezar
 
Регистрация: 16.01.2007
Сообщений: 123
Лампочка

Для работы с мышью в Паскале нужен модуль Mouse. Можно найти в сети.
Вот мой вариант:
MOUSE10.zip
Cezar вне форума Ответить с цитированием
Старый 13.01.2008, 13:19   #6
Kostia
Участник клуба
 
Аватар для Kostia
 
Регистрация: 21.11.2007
Сообщений: 1,691
По умолчанию

Вот еще одна хорошая библиотека+описание:
Вложения
Тип файла: rar UKEYB.rar (5.1 Кб, 124 просмотров)
Kostia вне форума Ответить с цитированием
Старый 10.03.2008, 14:50   #7
MaxiMus_03
Новичок
Джуниор
 
Аватар для MaxiMus_03
 
Регистрация: 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.
MaxiMus_03 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мышь Михаил Юрьевич Общие вопросы 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