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

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

Специфичные свойства

Panels ‑ описание панелей (StatusBar1.Panels.Items[0].Text:=’База’). Вызывается редактор панелей и окно свойств текущей панели.

SimplePanel,SimpleText ‑ строка из одной панели (True) и ее текст.

SizeGrip ‑ вставляется кнопка изменения размера панели (True).

Методы: Add(добавить), Insert(включить), Delete(удалить).

Пример создания строки статуса в заставке данного пункта

Procedure TForm1.FormCreate(Sender: TObject); //создание формы

Var i:Integer; p:TStatusPanel; //объект StatusBar1 уже размещен на форме

Begin With StatusBar1 Do For i:=0 To 1 Do Begin p:=Panels.Add; p.Text:='Панель '+IntToStr(i); p.Width:=Form1.Width div 2; End; End;

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

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.

Компонент является однострочным редактором текста. Компонент не реагирует на клавиши 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;

Дата добавления: 2014-12-08