Implementation. procedure TForm1.FormClick(Sender: TObject);

procedure TForm1.FormClick(Sender: TObject);

Begin

End;

Разработка программного кода для вывода текста.

Вариант 1. Для вывода текста в процедуре обработки события необходимо задать значение строковой константы (Str1), а затем свойству. Caption присвоить это значение.

procedure TForm1.FormClick(Sender: TObject);

Const Str1= 'Мы все учились понемногу,' #10+ //#10 – перевод строки

'Чему-нибудь и как-нибудь.'; // + объединение строк

Begin

Label2.Caption:= Str1;

End;

Вариант 2. З начение строковой константы (Str1) задано в разделеimplementation, а в процедуре обработки события свойству Caption присвоено значение константы.

Implementation

………………

Const Str1= 'Мы все учились понемногу, '#10+ //#10 – перевод строки

'Чему-нибудь и как-нибудь.'; // + объединение строк

procedure TForm1.FormClick(Sender: TObject);

Begin

Label2.Caption:= Str1;

End;

Если константа (или переменная) используется в нескольких процедурах, то вариант 2 предпочтительнее.

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®1Object Inspector ®ÌEvents ®

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

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

TForm1 = class (TForm)

Edit1: TEdit;

procedure Edit1Exit(Sender: TObject);

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

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

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

…………..

End;

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

Дата добавления: 2015-07-11