Нужно написать процедуры для мышки... Опции

[BRS]

первая - ограничить передвижения мыши в прямоугольнике с диагональю (x_1,y_1 ; x_2,y_2);

вторая - определение координат мыши;

кто поможет? )

[FreeMan]

2)

Код

function getx:word;
var
x:word;
begin
asm
mov ax,3
int 33h
mov x,cx
end;
getx:=x;
end;
end;

function gety:word;
var
y:word;
begin
asm
mov ax,3
int 33h
mov y,cx
end;
gety:=y;
end;
end;