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

Компонент класса TEdit позволяет осуществлять ввод, редактирование и отображение текстовой строки.

Text :String - центральное свойство, отображаемая строка.

CharCase – способ автоматического преобразования регистра букв:

esNormal – без преобразования;

esUpperCase – все буквы прописные;

esLowerCase – все буквы строчные.

ReadOnly –(true/false) – разрешает/запрещает изменение текста.

Свойства ⁺Font, AutoSize, WordWrap аналогичны свойствам компонента TLabel

Основные события 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Object 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 (LabeledEdit1.EditLabel. – составное имя).

Caption - текст надписи;

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

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

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

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

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

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

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

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

3. Выберите событие, которое приведёт к выводу константы или переменной. Добавьте в код процедуры описание локальной константы St.

procedure TForm1.LabeledEdit1Click(Sender: TObject);

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

begin

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

{ или равноценный вариант LabeledEdit1.Text:= St+Edit1.Text; }

end;