Введение в ABCButtons

ABCButtons - модуль для создания кнопок на PascalABC.Net.

Класс ButtonABC

ButtonABC - класс кнопки.

• Декларировать в секции var кнопку можно так:

Button: ButtonABC;

• Инициализировать с помощью new кнопку можно следующим образом:

Button := new ButtonABC(x, y, w, h, t, c);

x, y - координаты левого верхнего угла кнопки; w, h - ширина и высота кнопки соответственно; t - текст на кнопке; c - цвет кнопки.

Свойство	Значение
Text	Текст на кнопке.
Filled	Заполнена ли цветом кнопка (true, false).
Color	Цвет внутренности кнопки.
FontColor	Цвет текста кнопки.
Visible	Видимость кнопки (true, false).
TextVisible	Видимость текста на кнопке (true, false).

Курсор

Параметры x и y в обработчиках OnMouseDown, OnMouseUp и OnMouseMove определяют координаты курсора мыши в момент наступления события.

Привязка обработчиков событий

Чтобы выполнялась некоторая процедура при нажатии на кнопку пишите:

A.OnClick := p;
//Альтернативный вариант:
A.OnClick += p;
//Изъятие процедуры:
A.OnClick -= p;

A - имя кнопки, p - процедура, которая выполниться по нажатию на кнопку a.

Пример

Вывод "Привет мир!" по щелчку на кнопку.

uses Crt, GraphABC, ABCButtons;
var
  B: ButtonABC;

procedure P() := Writeln('Привет мир!');

begin
  B := new ButtonABC(0, 0, 100, 40, 'Button', clRed);
  B.OnClick := P;
end.

Ссылки

Создание таймера с помощью ABCButtons