Ввод и редактирование данных

Общие специфичные свойства компонентов редактирования.

AutoSelect ‑ выделение всего текста в момент получения фокуса (True).

CharCase ‑ преобразование букв: ecNormal (нет), ecUpperCase (заглавные), ecLowerCase (строчные).

HideSelection ‑ выделение текста сохраняется при потере фокуса (False).

MaxLength ‑ максимальная длина текста (0 ‑ не ограничена).

Modified ‑ при изменении текста значение свойства равно True.

OEMConvert ‑ перекодировка из DOS в Windows и обратно (True).

PasswordChar ‑ символ, заменяющий вводимые символы при отобра­же­нии. Используется для ввода паролей (Edit1.Password:=’*’).

SelStart, SelLength, SelText ‑ начало, длина и сама выделенная строка текста соответственно.

 

Общие с пецифичные методы

ClearSelection ‑ удаление выделенного текста.

CopyToClipboard ‑ выделенный текст копируется в буфер.

CutToClipboard ‑ выделенный текст копируется в буфер и удаляется.

GetSelTextBuf(Buffer,BufSize) ‑ копируются первые BufSize символов выделенной строки в Buffer.

PasteFromClipboard ‑ замена выделенной строки (если строка не выделена, то позицию курсора) содержимым буфера.

SelectAll ‑ выделяется весь текст.

SetSelTextBuf(Buffer) ‑ замена выделенной строки (если строка не выделена, то позицию курсора) содержимым Buffer.

Одностроковый текст (Edit)

Компонент является однострочным редактором текста. Компонент не реагирует на клавиши Enter и Esc. Для проверки вводимых символов можно использовать процедуру обработки события OnKeyPress (п.2.1.8.3).

Пример выхода из Edit1 по клавише Enter в событии OnKeyPress. Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

If Key=#13 Then{переход к следующему в порядке обхода (п.2.2.1.2)}

Begin Key:=#0; Form1.SelectNext(Sender as TWinControl, True,True); End;

{или If Key=#13 Then Begin Key:=#0; Form1.ActiveControl:=Edit2; End;}

{или If Key=#13 Then Begin Key:=#0; Form1.Edit2.SetFocus; End;} End

Более удобным является переход по клавише Enter к следующему по порядку обхода объекту, используя метод SelectNext (п.2.2.1.2).

Пример процедуры обработки события формы (со свойством Key Preview=True) OnKeyPress для перехода по клавише Enter из любого объ­екта, что более удобно, чем отдельные процедуры для каждого объекта:

Procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

Begin If Key=#13 Then

Begin Key:=#0; Form1.SelectNext(Form1.ActiveControl as TWinControl,

True, True); Key:=#0; End;

End;

Одностроковый текст с маской (MaskEdit)

Компонент (панель Additional) имеет дополнительное свойство EditMask для установки шаблона (маски). Шаблон используется для контроля вводимой информации и представляет собой строку из специальных символов, состоящую из трех частей, разделенных символом «;». Первая часть является собственно маской. Вторая часть ‑ признак (цифра) принадлежности литерных символов к вводимой информации («1») или нет («0»). Третья часть задает символ, представляющий в маске пробел (по умолчанию принимается символ подчеркивания).

В маске могут использоваться символы:! (подавляются ведущие пробелы), </ > (перевод в строчные/заглавные буквы), <> (отмена преоб­разо­вания букв), \ (следующий символ является литерным), L/l (долж­на/может буква), A / a (должна/может буква или цифра), C/c (должен/может лю­бой символ), 0/9 (должна/может цифра), # (может цифра, знаки плюс и минус),: (разделитель часов, минут и секунд), / (разделитель дней, месяцев и лет в датах).

Примеры масок:!99/99/00;1;_ (дата),!00‑00‑00 (номер телефона)

Щелкнув по кнопке с троеточием свойства EditMask, можно вызвать мастера масок.

⇐ Предыдущая20212223242526272829Следующая ⇒

Поделиться:

Воспользуйтесь поиском по сайту: