Теоретические сведения Компонент tMemo (область просмотра)

Компонент Memo используют для создания многострочного редактора текста. Область просмотра помещается в форму c помощью кнопки на стандартной панели инструментов. Кроме известных свойств, область просмотра обладает свойствами, приведенными в табл. 15.1.

Таблица 15.1. Свойcтва TMemo

Свойство	Описание свойства	Примеры значений
HideSelection	Сохранение выделенного фрагмента текста в момент потери фокуса	True — выделение не сохраняется, False — сохраняется)
Lines	Задание первоначального текста в поле редактирования	Комплексное свойство задается в диалоговом окне
MaxLength	Максимально возможное количество введенных символов	50 — 50 символов, 0 — без ограничений
ScrollBars	Наличие полос прокрутки	ssNone — нет, ssHorizontal —горизонтальная, ssBoth — обе

Для вывода данных в область просмотра пользуются стандартным методом Add.

Пример 15.1. В многострочный редактор при нажатии кнопки выводятся номера строк. Экранная форма программы показана на рис. 15.1.

Обработка события имеет вид:

var i:integer=0;

procedure TForm1.Button1Click(Sender: TObject);

begin

i:=i+1;

Memo1.Lines.Add('Строка '+inttostr(i));

end;

Рис. 15. 1. Экранная форма примера 15.1

Компонент tCheckBox (флажок)

Компонент TCheckBox используют для создания независимого двух- или трехпозиционного флажка: включено/выключено (доступен/недоступен). Переключатель помещается в форму с помощью кнопки на стандартной панели инструментов. Некоторые свойства флажков приведены в табл.15.2.

Таблица 15.2. Свойcтва TCheckBox

Свойство	Описание свойства	Примеры значений
AllowGrayed	Наличие третьей позиции (серый выключенный)	True — трехпозиционный, False — двухпозиционный флажок
State	Состояние флажка	cbGrayed — серый, cbUnchecked — выключен, cbСhecked — включен

Пример 15.2. Флажками отмечаются используемые кредитные карточки и по нажатию кнопки в многострочный редактор выводятся эти названия. Экранная форма программы показана на рис. 15.2.

Обработка события имеет вид

{ Проверка установления флажка кредитной карточки.

Если да, то имя кредитной карточки выводится в область просмотра}

procedure Tform1.Test(chkBox:TObject;var used:boolean);

begin

with (chkBox as TCheckBox) do

if Checked then begin

Memo1.Lines.Add(Caption);

used:=true;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var pr:boolean;

begin

pr:=false;

Memo1.Clear;

Memo1.Lines.Add('Вы используете следующие кредитные карточки:');

Test(CheckBox1,pr);

Test(CheckBox2,pr);

Test(CheckBox3,pr);

Test(CheckBox4,pr);

if not(pr) then

Memo1.Lines.Add('Кредитных карточек у вас нет.');

end;

Рис. 15.2. Экранная форма примера 15.2