Симбиоз GraphAbc и Form1 - PascalABC.NET
Формулировка задачи:
Хочу влепить в форму модуль graphabc, но он отображается отдельным окном. Можно ли сделать его внутри form1?
Почему graphabс? Просто мне нужен модуль Events, а именно функция которая определяла бы находится ли мышка в нужном прямоугольнике или нет.
Решение задачи: «Симбиоз GraphAbc и Form1»
textual
Листинг программы
- uses GraphABC, ABCObjects;
- var
- r: RectangleABC;
- txt: TextABC;
- procedure MouseMove(x, y, mb: integer);
- begin
- if r.PtInside(x, y) Then txt.Text := 'True'
- else txt.Text := 'False';
- end;
- begin
- r := new RectangleABC(100, 100, 200, 300);
- txt := new TextABC(0, 0, 20, '', clBlack);
- OnMouseMove := MouseMove;
- end.
Объяснение кода листинга программы
- Объявлены две переменные: r (тип RectangleABC) и txt (тип TextABC).
- Определена процедура MouseMove, которая вызывается при перемещении мыши.
- В процедуре MouseMove происходит проверка, находится ли точка (x, y) внутри прямоугольника (r).
- Если точка находится внутри прямоугольника, то в поле txt записывается 'True', иначе - 'False'.
- В основном блоке кода создается экземпляр прямоугольника (r) с заданными координатами и размерами.
- Создается экземпляр текстового поля (txt) с заданными координатами, размером и начальным текстом.
- Задается обработчик события OnMouseMove, которым является процедура MouseMove.
- Код завершается точкой (end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д