У меня есть простейший модуль для работы с мышью . Процедуры :
1) intr33 - вызывает прерывание $33
2) initmouse,showmouse,hidemouse : названия говорят за себя
3) MouseInfo - даёт координаты указателя и информацию о нажатой кнопке.
Вот тексть модуля:
| Код |
unit M_mouse;
{$G+,F+,O+}
interface
procedure Intr33(param:word;var B,C,D:word);
procedure initmouse;
procedure showmouse;
procedure hidemouse;
procedure MouseInfo(var X,Y,B:word);
implementation
var
q,w,e:word;{ў нвЁе ЇҐаҐ¬Ґле Ґ Ўг¤Ґв ЁзҐЈ® Ї®«Ґ§®Ј®}
procedure Intr33(param:word;var B,C,D:word);
VAR
But,XC,YC:word;
begin
asm
mov ax,param
int $33
mov But,bx
mov XC,cx
mov YC,dx
end;B:=But;C:=XC;D:=YC;
end;
procedure initmouse;
begin intr33(0,q,w,e); end;
procedure showmouse;
begin intr33(1,q,w,e);end;
procedure hidemouse;
begin intr33(2,q,w,e); end;
procedure MouseInfo(var X,Y,B:word);
begin
intr33(3,B,X,Y);
end;
end.
|
Как его можно подключить в основную программу, и какие переменный отвечают за координатами курсора? |
)