Основные события TEdit

OnChange – возникает при любых изменениях в поле.

OnClick – щелчок мышкой по полю.

OnDblClick - двойной щелчок мышкой по полю.

OnEnter – возникает после ввода и нажатии <Enter>.

OnExit – возникает после потери фокуса полем.

Пример ввода значения глобальной строковой переменной

1. Установите на форме компонент TEdit. В программный код модуля, в описание объекта TForm1, будут добавлено описание текстового поля Edit1.

TForm1 = class (TForm)

Edit1: TEdit;

……………………………………….

2. После запуска на выполнение в поле будет отражено имя компонента «Edit1», желательно удалить имя.

Edit1®Ì Object Inspector ® Properties ®

Text ® Удалите имя.

3. Определите процедуру обработки события OnExit (потеря фокуса) поля Edit1.

Edit1®1Object Inspector ®ÌEvents ®

OnExit ® двойной щелчок в поле ввода

В программный код модуля, в описание объекта TForm1, будет добавлен заголовок и шаблоны процедуры.

TForm1 = class (TForm)

Edit1: TEdit;

procedure Edit1Exit(Sender: TObject);

…………………………..

procedure TForm1.Edit1Exit(Sender: TObject); // Событие наступает после

begin // выхода из поля.

…………..

end;

4. Опишите в разделе implementationстроковую переменную Str2.

Implementation

…………………….

var Str2: String; // Глобальная переменная, которой будет присвоено

// значение поля Edit1

5. Добавьте в текст процедуры оператор присваивания переменнойStr2 значения текстового поля.

procedure TForm1.Edit1Exit(Sender: TObject);

Begin

Str2:= Edit1.Text; //Переменной присвоено значение

end;

TLabeledEdit - однострочное редактируемое текстовое поле с меткой

Компонент TLabeledEdit является комбинацией однострочного текстового поля и надписи.

Основные свойства надписи:

⁺EditLabl.Caption - текст надписи

LabelPosition = (IpAbove, IpBelov, IpLeft, IpRight) - определяет положение надписи относительно текстового поля (сверху, снизу, слева, справа).

LabelSpacing – определяет расстояние от метки до текстового поля в пикселях.

Остальные свойства аналогичны свойствам компонента TLabel.

Отображаемая строка тестового поля (как и в компоненте TEdit) содержится в свойстве Text:String.

Отображения в поле значения локальной константы и глобальной переменной

1. Установите на форме текстовое поле LabeledEdit1.

2. Определите для LabeledEdit1 процедуру обработки события OnClick (установка курсора в поле)

3. Задайте значение свойства EditLabl.Caption либо непосредственно вводом значения, либо с помощью глобальной константы или переменной в какой-либо процедуре обработки события.

4. Добавьте в код процедуры описание локальной константыSt

procedure TForm1.LabeledEdit1Click(Sender: TObject);

Const St = 'Было введено';

Begin

LabeledEdit1.Text:= St+Str1; //Операция объединения

{ или равноценный вариант

LabeledEdit1.Text:= St+Edit1.Text; }

end;