Элемент управления «Кнопка»

Элемент управления «Кнопка» также находится на вкладке «Стандартные» панели элементов и обозначается пиктограммой

Пользователь использует кнопки для выполнения определенных действий. Например, после ввода данных, пользователь нажимает на кнопку «Расчет». При этом в программе выполняется процедура, производящая соответствующие расчеты. Кнопки описываются при помощи класса TButton, который кроме свойств содержит также одно важное событие, вызываемое при нажатии на кнопку.

События для элементов можно задать на вкладке «События» панели «Инспектор объектов». Процедура обработки события автоматически описывается в классе формы и разделе реализации модуля. В ранее рассмотренном примере в классе TFrom1 нажатие кнопки обрабатывается процедурой Button1Click.

Процедуры обработки событий, задаются на вкладке «События» в панели «Инспектор объектов»:

Для примера перепишем рассмотренную ранее в классе TForm1 процедуру обработки события нажатия кнопки Button1Click для иллюстрации работы кнопок и полей ввода на примере расчета степени числа e. Значение степени должно будет вводиться в поле Edit1. При нажатии на кнопку Button1 будет производиться расчет и выдача на экран соответствующего сообщения.

В следующей программе используются функции StrToFloat и FloatToStr для преобразования введенного строкового значения в вещественное число и наоборот, некоторого рассчитанного значения в строку для показа результата. Также используется процедура ShowMessage для вывода на экран сообщения.

Текст программы

PROCEDURE TForm1.Button1Click(Sender:TObject);

VAR

Power,Result:Real;

BEGIN

{ Преобразование введенного в поле Edit1

текста в вещественное число }

Power:=StrToFloat(Edit1.Text);

Result:=Exp(Power); { Расчет результата }

{ Вывод на экран сообщения }

ShowMessage('e^'+FloatToStr(Power)+'='+

FloatToStr(Result));

END;

Если, например, ввести в поле Edit1 значение 1 и нажать на кнопку Button1, то на экран будет выдано следующее сообщение:

Вещественные числа для функции StrToFloat должны задаваться через запятую (а не через точку, как обычно). При попытке преобразовать с помощью функции StrToFloat строку, которая не содержит правильного представления вещественного числа, будет выдано сообщение об ошибке, но выполнение программы продолжится.