"Регистрация нажатия кнопки" в 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).
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д