Компонент Tlabel
Стандартный компонент Tlabel предназначен для размещения на форме различного рода статических текстовых надписей, например, когда необходимо дать заголовки другим компонентам, не имеющим своего собственного свойства Caption.
Необходимо отметить следующие свойства компонента Tlabel:
1. Чтобы компонент Tlabel динамически принял свой размер при вводе текста необходимо использовать свойство:
AutoSize := true;
2. Чтобы текст мог располагаться в нескольких строках необходимо использовать свойство:
WordWrap := true;
При этом необходимо установить свойство
AutoSize := false;
С помощью свойства Allignment задается выравнивание текста:
Allignment := (taLeftJustify, taCenter, taRightJustify)
Left – прижать текст к левой стороне,
Center – выводить текст по центру,
Right – прижать текст к правой стороне.
Пример. Пусть на форму помещены кнопка Button1 и метка. При нажатии кнопки требуется в метке выводить текст.
Button1
Label1
Procedure Button1.Click;
begin
Label1.WordWrap := true;
Label1.AutoSise := false;
Label1.Allignment := taCenter;
Label1.Caption := ’Проба должна ’;
end;
Свойство TransParent позволяет указывать на прозрачность или непрозрачность фона компонента Tlabel. Это свойство может принимать только булевские значения. Так, если требуется, чтобы фон был прозразный, следует записать:
TransParent := true;
Это свойство используется совместно с графическими изображениями.
Компонент tButton
Предназначен для формирования конкретного воздействия на программу. Назначение кнопки обычно определяют свойством Caption. Кнопку можно нажать различными способами:
- с помощью мыши;
- выделить с помощью клавиши Tab;
- нажать клавишу пробел.
Связанный с кнопкой алгоритм управления реализуется в обработчике события OnClick.
Одну из кнопок можно назначить кнопкой по умолчанию с помощью свойства
Default := true;
В этом случае, если ни одна из кнопок не выделена, при нажатии клавиши Enter активизируется кнопка, у которой свойство
Default := true;
Одну из кнопок можно назначить кнопкой завершения с помощью свойства Cancel: ????
Button1.Cancel := true;
В этом случае при нажатии клавиши Esc будет обрабатываться событие OnClick.
При любом способе нажатия кнопки вызывается ее метод Click, который в свою очередь вызывает обработчик события OnClick. Кнопка обрабатывает также событие OnDbClick.
Кнопка не обладает свойством Color.
Компонент tEdit
Этот компонент представляет собой однострочный редактор текста. При его использовании открывается прямоугольное окно, в котором можно вводить, редактировать и выводить одну строку текста.
Центральным свойством компонента является Text. Чтобы поместить текст в окно достаточно записать:
Edit1.Text := ’Пример возможного текста’;
Если нужно при вводе использовать прописные или строчные символы используется свойство CharCase, которое может принимать три значения:
CharCase = (ecLowerCase,ecNormal,ecUpperCase);
Здесь:
ecLowerCase – соответствует строчным символам,
ecNormal - нормальным,
ecUpperCase – прописным символам.
Компонент TEdit может использоваться как компонент Tlabel, т.е. для вывода строковых данных. В этом случае необходимо присвоить свойству
ReadOnly := true;
Весь текст в строке компонента TEdit можно удалить с помощью метода
Edit1.Clear;
Выделенный текст можно удалить с помощью метода
Edit1.ClearSelection;
Выделение текста возможно, когда
Edit1.AutoSelect := true;
Используя компонент TEdit можно обмениваться информацией с ClipBoard. Для этого используются методы:
CopyToClipBoard – копировать в буфер,
CutToClipBoard – вырезать,
PasteToClipBoard – вставить.
Пример1.
Пусть на форме имеются два компонента TEdit (TEdit1, TEdit2) и три компонента TButton (TButton1, TButton2 и TButton3). Рассмотрим фрагмент программы:
Procedure Tform1.Button1Click;
begin
Edit2.Clear;
end;
Procedure Tform1.Button2Click;
begin
Edit1.CopyToClipBoard;
end;
Procedure Tform1.Button3Click;
begin
Edit2.PasteFromClipBoard;
end;
Строка ввода класса TEdit обрабатывает все события от мыши и клавиатуры посредством активизации событий OnChange. При изменении текста в компоненте TEdit возникает событие OnChange.
Пример2.
Напишем обработчик, который по окончанию активизации компонента TEdit проверяет пустая это строка или нет.
Procedure Tform1.Edit1Exit;
begin
If Length(Edit1.Text)<1 then
begin
If MessageBox(0,’Поле не может быть
пустым’, ’Ошибка’, mb_OK);
ActiveControl := Edit1; //запрещает выход из текстового
//окна
end;
end;
Ошибка
Поле не должно быть пустым
OK
В этом примере событие OnExit происходит при потере активности элемента Edit1 и при этом проверяется длина введенной строки. В случае нулевой строки выдается соответствующее сообщение и запрещается выход из Edit1.
Пример3.
Пусть требуется при любом изменении текста в Edit1 сообщать пользователю, что это изменение произошло.
Procedure Tform1.Edit1Change;
begin
Label1.Caption := ’Произошло изменение текста Edit1’;
end;