Запомнить координаты мышки в graphabc - PascalABC.NET
Формулировка задачи:
Как в GraphABC при нажатии кнопки мышки в графическом окне запомнить координаты это тойчки????
Решение задачи: «Запомнить координаты мышки в graphabc»
textual
Листинг программы
Uses GraphABC; var xm, ym, mouse_up: integer; // xm - координаты мыши по x // ym - координаты мыши по y // mouse_up - статус мыши Procedure MouseUp(x, y, mb: integer); // процедура нажатии мыши begin If (mb = 1) then begin xm := x; ym := y; mouse_up := 1; end; end; begin repeat OnMouseUp := MouseUp; until (mouse_up = 1); Writeln('Координаты мыши: ', xm, ', ',ym); End.
Объяснение кода листинга программы
- Объявлены три переменные: xm, ym и mouse_up типа integer (целое число).
- Xm будет хранить координаты мыши по x, ym - координаты мыши по y, а mouse_up - статус мыши.
- Определена процедура MouseUp с тремя параметрами: x, y и mb (координаты мыши и ее статус).
- Если статус мыши mb равен 1 (нажатие мыши), то координаты мыши x и y присваиваются переменным xm и ym соответственно, а переменная mouse_up принимает значение 1.
- В основной части программы определена бесконечная повторяющаяся процедура OnMouseUp, которая вызывает процедуру MouseUp при каждом повторении.
- Программа повторяется до тех пор, пока переменная mouse_up не примет значение 1.
- После окончания внутреннего цикла программа выводит на экран координаты мыши в формате 'Координаты мыши: ', xm, ', ',ym.