Как обработать событи, щелчок на кнопке мыши?

[proglamer]

в программах сталкиваюсь с проблемой, что пользователь может управлять программой только посредством клавиатуры. перечитал до дыр справочник, но ничего не нашел.
кто ни будь знает?

[Djaconda]

там модуль мышы подклучать надо кажется вот так его зовут MOUSEDLG.PAS а там смотри по процедурам я им никогда лично непользовался....

[proglamer]

Сообщение от Djaconda

там модуль мышы подклучать надо кажется вот так его зовут MOUSEDLG.PAS а там смотри по процедурам я им никогда лично непользовался....

cпс, но, наверное, mousedlg.tpu?

[Stilet]

Может проще через прерывание 33H?
Кста у меня такого модуля нет...

[proglamer]

cори но у мну нету модуля mousedlg...
stilet, а можешь чуть поподробнее?

[Stilet]

а можешь чуть поподробнее?

Без проблем:

uses dos,crt;

var r:registers;q,x,y:integer; 
{Через прерывание 33 мона работать с мышой в паскале
  Функи его ищи в инете}
PROCEDURE     GetXY_Mouse; BEGIN R.AX:=3; INTR($33,r);
x:=r.cx;y:=R.DX;x:=x DIV 8;  y:=y DIV 8;END;

FUNCTION push_mouse(t:INTEGER):INTEGER;
BEGIN R.AX:=5; r.bx:=t;INTR($33,r);push_mouse:=R.AX;END;

FUNCTION unpush_mouse(t:INTEGER):INTEGER;
BEGIN R.AX:=6;r.bx:=t;INTR($33,r);unpush_mouse:=R.AX;END;


begin
 clrscr;
 repeat
  getxy_mouse;
   q:=push_mouse(0);
   write('X мышки=',x,' Y мышки=',y);
   if q=1 then writeln('Нажата левая');
   if q=2 then writeln('Нажата правая');
   if q=3 then writeln('Нажаты обе');
  gotoxy(1,1);
 until keypressed;
end.

(Эт моя контрольная была)

[JTG]

Писал когда-то давно под паскаль мышиный модуль... Найду - скину.

Под QBasic кстати тоже имееццо, кому надо? (тока там мои копирайты в прогу автоматом добавятся в начале )

[proglamer]

Сообщение от Stilet

Без проблем:

uses dos,crt;

var r:registers;q,x,y:integer; 
{Через прерывание 33 мона работать с мышой в паскале
  Функи его ищи в инете}
PROCEDURE     GetXY_Mouse; BEGIN R.AX:=3; INTR($33,r);
x:=r.cx;y:=R.DX;x:=x DIV 8;  y:=y DIV 8;END;

FUNCTION push_mouse(t:INTEGER):INTEGER;
BEGIN R.AX:=5; r.bx:=t;INTR($33,r);push_mouse:=R.AX;END;

FUNCTION unpush_mouse(t:INTEGER):INTEGER;
BEGIN R.AX:=6;r.bx:=t;INTR($33,r);unpush_mouse:=R.AX;END;


begin
 clrscr;
 repeat
  getxy_mouse;
   q:=push_mouse(0);
   write('X мышки=',x,' Y мышки=',y);
   if q=1 then writeln('Нажата левая');
   if q=2 then writeln('Нажата правая');
   if q=3 then writeln('Нажаты обе');
  gotoxy(1,1);
 until keypressed;
end.

(Эт моя контрольная была)

долго читал...
немного непонял как построены функции))
ну ниче разберусь, спс))

[Stilet]

Если что спрашивай

[madmot]

Может поможет:
http://softsearch.ru/programs/10-770...download.shtml
Мышинное Программирование:
http://sources.ru/pascal/mouse/index.htm