"Регистрация нажатия кнопки" в graphABC - PascalABC.NET
Формулировка задачи:
Здравствуйте. Не могу найти информации относительно реализации регистрирования нажатия кнопки.
Т.е. например как реализовать детектор нажатия кнопки?
Например у меня есть две кнопки, заданные ButtonABC, и дальше, если была нажата первая кнопка - то задаётся значение одной переменной, например прибавляем единицу к Х, а если была нажата вторая кнопка, то соответственно к другой переменной прибавляем единицу, например к Y. Можно ли вообще такое сделать???
Заранее спасибо.
Решение задачи: «"Регистрация нажатия кнопки" в graphABC»
textual
Листинг программы
uses graphABC,ABCButtons,ABCObjects; var b1,b2:ButtonABC; r:RectangleABC; x,y:integer; s:string; procedure b1_OnClick; begin x:=x+1; s:=''; s:=s+'X='+inttostr(x); r:=RectangleABC.Create(20,100,200,50,clWhite); r.Text:=s; end; procedure b2_OnClick; begin s:=''; y:=y+20; s:=s+' Y='+inttostr(y); r:=RectangleABC.Create(20,100,200,50,clWhite); r.Text:=s; end; begin setwindowsize(400,400); x:=1; y:=10; b1:= new ButtonABC(100, 360, 70, 30, 'Кнопка1', clMoneyGreen); b2:= new ButtonABC(200, 360, 70, 30, 'Кнопка2', clMoneyGreen); b1.OnClick:=b1_OnClick; b2.OnClick:=b2_OnClick; end.
Объяснение кода листинга программы
- Объявлены переменные: b1, b2 - кнопки; r - прямоугольник; x, y - счетчики; s - строка.
- Заданы размеры окна (400, 400).
- Инициализированы значения переменных x и y (1 и 10 соответственно).
- Создаются кнопки b1 и b2 с указанными параметрами (положение, размер, цвет, текст).
- Задаются обработчики событий для кнопок b1 и b2 (процедуры b1_OnClick и b2_OnClick).
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д