"Регистрация нажатия кнопки" в graphABC - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Не могу найти информации относительно реализации регистрирования нажатия кнопки. Т.е. например как реализовать детектор нажатия кнопки? Например у меня есть две кнопки, заданные ButtonABC, и дальше, если была нажата первая кнопка - то задаётся значение одной переменной, например прибавляем единицу к Х, а если была нажата вторая кнопка, то соответственно к другой переменной прибавляем единицу, например к Y. Можно ли вообще такое сделать??? Заранее спасибо.

Решение задачи: «"Регистрация нажатия кнопки" в graphABC»

textual
Листинг программы
  1. uses graphABC,ABCButtons,ABCObjects;
  2. var b1,b2:ButtonABC;
  3.     r:RectangleABC;
  4.     x,y:integer;
  5.     s:string;
  6. procedure b1_OnClick;
  7. begin
  8. x:=x+1;
  9. s:='';
  10. s:=s+'X='+inttostr(x);
  11. r:=RectangleABC.Create(20,100,200,50,clWhite);
  12. r.Text:=s;
  13. end;  
  14. procedure b2_OnClick;
  15. begin
  16. s:='';
  17. y:=y+20;
  18. s:=s+' Y='+inttostr(y);
  19. r:=RectangleABC.Create(20,100,200,50,clWhite);
  20. r.Text:=s;
  21. end;    
  22. begin
  23. setwindowsize(400,400);
  24. x:=1;
  25. y:=10;
  26. b1:= new ButtonABC(100, 360, 70, 30, 'Кнопка1', clMoneyGreen);
  27. b2:= new ButtonABC(200, 360, 70, 30, 'Кнопка2', clMoneyGreen);
  28. b1.OnClick:=b1_OnClick;
  29. b2.OnClick:=b2_OnClick;
  30. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы