Компонент Edit (вкладка Standard) представляет собой одностроч-
ный текстовый редактор, или строку (поле) редактирования, в котором
возможны отображение и изменение текста. У компонента отсутствует
реакция на управляющие клавиши Enter и Esc. Основные свойства
компонента приведены в табл. 3.1.
Таблица 3.1. Свойства компонента Edit
Для проверки информации, вводимой в редакторы, можно использо-
вать обработчики событий нажатия клавиш, например обработчик собы-
тия OnKeyPress.
Пример. Ограничение набора символов, вводимых в редактор:
Procedure TForml.EditKeyPress(Sender TObject; var Key:Char);
begin {в процедуре разрешен ввод только десятичных цифр}
if (Key<'0') or (Key >'9') then Key:=#0;
end;
Для проверки введенного текста также можно использовать событие
OnExit, возникающее при потере элементом фокуса ввода:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if StrToInt(Edit1.Text)>999
then begin //если ввод не верный формируем сообщение
MessageDlg('Повтори ввод', mtError, [mbOK], 0);
Edit1.SetFocus; // установка фокуса на Edit1
Edit1.SelectAll // выделение текста в Edit1
end
end;
Свойство Text является ключевым для компонента. Его значение, уста-
новленное в инспекторе объектов, будет выведено в компоненте после
запуска программы, а данные, введенные в него в процессе работы, обра-
батываются Delphi с помощью процедур и функций преобразования.
|