Класс tEdit

Класс TEdit представляет из себя обычное поле для ввода текста. Соответствующий компонент расположен на вкладке Standard Палитры компонентов:

Самое важное свойство для этого компонента - это свойсто Text. Разумеется в нем хранится текст, введенный в наш Edit. Обратите внимание, что текст хранится именно как текст, и, если пользователь, скажем, введет в edit число 23, то оно будет хранится как строка "23", а не как число 23. Поэтому в такой строке содержится ошибка:

...

if Edit1.Text>0 then ShowMessage('Число положительное');

...

Для превращения строки в целое число надо использовать функцию StrToInt:

...

if StrToInt(Edit1.Text)>0 then ShowMessage('Число положительное');

...

Аналогично для записи числа в Edit надо использовать конструкцию вида

Edit1.Text:=IntToStr(22);

Из этой же серии относится и функции StrToFloat и FloatToStr.

Рассмотрим еще несколько свойств.

Свойство MaxLenght определяет максимальную длину вводимого текста. Если оно равно нулю (это значение по умолчанию), то длина текста не ограничена.

Из полезных свойств отметим также AutoSelect логического типа. Если оно установлено в true (а по умолчанию так оно и есть), то при получении фокуса нашим edit'ом весь текст в нем выделяется. Это может оказаться полезным, если пользователь скорей всего полностью заменит этот текст.

Из свойств отметим еще свойство PasswordChar. Оно понадобится при использовании нашего edit'а в качестве поля для ввода пароля. Это свойство позволяет задать символ для визуальной замены вводимых пользователем символов. Обычно в этом случае используется звездочка.

Из событий для этого компонента чаще всего используется событие OnChange, OnKeyDown, OnKeyPress и OnKeyUp. Первое из них возникает при изменении текста в нашем edit'е, последующие три - при нажатии и отпускании клавиши. Вот как, например, можно использовать событие OnKeyPress для ограничения ввода только цифрами:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key:=#0

end;

Edit понимает такие стандартные для Windows комбинации клавиш как Ctrl+C (для копирования текста в буфер), Ctrl+X (для вырезания текста), Ctrl+V (для вставки текста), Ctrl+Z (для отмены последнего действия).

Функции MessageDlg и ShowMessage

Функция MessageDlg используется для вывода на экран messagebox'а с неким сообщением и несколькими кнопками (Yes, No, OK и т. д.), которое выглядит приблизительно так:

Параметры у этой функции следующие. Первый задает строку, которая будет показываться в нашем сообщении (Как и все строки в Delphi, заключаем ее в одинарные кавычки). Второй параметр определяет иконку на нашем messagebox'е и сообщение в его заголовке. Возможные значения для этого параметра - mtConfirmation (Подтверждение), mtInformation (Сообщение), mtWarning (Предупреждение), mtError (Ошибка). Обратите внимание, что при записи любого из перечисленных значений messagebox получит и соответствующий заголовок. Для этого параметра есть еще одно значение - mtCustom. Если использовать его, то никакой иконки в нашем messagebox'е не будет, а заголовок будет совпадать с именем exe-файла.

Третий параметр определяет кнопки, которые будут присутствовать на combobox'е. Вот некоторые из возможных значений: mbYes (кнопка Yes), mbNo (кнопка No), mbCancel (кнопка Cancel), mbOK (кнопка OK). Если кнопок несколько, то они объединяются посредством квадратных скобок (например, если мы хотим, чтобы присутствовало две кнопки Yes и No, то пишем [mbYes, mbNo]).

Последний, четвертый параметр - это идентификатор контекстногй справки.

В качестве результата функции MessageDlg возвращает значение, информирующее о том, что за кнопку пользователь нажал в messagebox'е. Вот тесколько возможных значений: mrYes, mrCancel, mrOK. Пример использования функции MessageDlg: