"Регистрация нажатия кнопки" в 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.

Объяснение кода листинга программы

  1. Объявлены переменные: b1, b2 - кнопки; r - прямоугольник; x, y - счетчики; s - строка.
  2. Заданы размеры окна (400, 400).
  3. Инициализированы значения переменных x и y (1 и 10 соответственно).
  4. Создаются кнопки b1 и b2 с указанными параметрами (положение, размер, цвет, текст).
  5. Задаются обработчики событий для кнопок b1 и b2 (процедуры b1_OnClick и b2_OnClick).
  6. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы