Как приостановить выполнение программы? - PascalABC.NET
Формулировка задачи:
у меня в программе подключены модули graphabc и events. в общем программа продолжает выполняться не смотря ни на что, даже не смотря на цикл. вот у меня в начале v:=0, далее при клике мыши v:=v+1, но v все равно равно 1 (после первого клика), и далее не прибавляется, то есть прога не смотря блин ни на какие преграды считывает присвоенное значение v каждый раз перед кликом.
как сделать так, что бы при каждом клике v:=v+1? напишите пример пожалуйста
я если честно долго мучился с events, еле еле научился, но и сейча не все понимаю...
Решение задачи: «Как приостановить выполнение программы?»
textual
Листинг программы
uses GraphABC; var v: integer; procedure MouseDown(x, y, mb: integer); begin Inc(v); // Тоже самое, что и i := i + 1 SetWindowTitle(v.ToString); end; begin OnMouseDown := MouseDown; end.
Объяснение кода листинга программы
- В данном коде используется язык программирования PascalABC.Net.
- В первой строке кода подключается модуль GraphABC, который позволяет работать с графикой.
- Далее, объявляется переменная типа integer с именем
v
. - Затем, определяется процедура
MouseDown
, которая вызывается при нажатии мыши. В этой процедуре значение переменнойv
увеличивается на 1, а затем устанавливается заголовок окна равным значению переменнойv
. - В последней строке кода устанавливается обработчик события
OnMouseDown
равным процедуреMouseDown
. - Код не содержит цикла или условия для приостановки выполнения программы. Если требуется приостановить выполнение программы, необходимо использовать соответствующую функцию или метод из языка программирования PascalABC.Net.