Пример 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
Панель tGroupBox (группы компонентов)
Компонент
TGroupBox
используют для размещения на панели
группы из нескольких компонентов и
улучшения дизайна окна приложения.
Группа компонентов помещается в форму
с помощью кнопки
на стандартной панели инструментов.
Свойства этого компонента аналогичны
описанным ранее.
Пример 15.3. С помощью флажков выбирают продукты из списка и по нажатию кнопки в многострочный редактор выводятся эти названия. Экранная форма программы показана на рис. 15.3.
Обработка события имеет вид:
procedure TFrmEx1.BtnResultClick(Sender: TObject);
var pr:boolean;
str:string;
begin
pr:=false;
MemResult.Clear;
str:='Выбраны следующие продукты: ';
if ChBBird.Checked then
begin
pr:=true;
str:=str+'птица, ';
end;
if ChBFish.Checked then
begin
pr:=true;
str:=str+'рыба, ';
end;
if ChBFruits.Checked then
begin
pr:=true;
str:=str+'фрукты, ';
end;
if ChBMeat.Checked then
begin
pr:=true;
str:=str+'мясо, ';
end;
if ChBMilk.Checked then
begin
pr:=true;
str:=str+'молоко, ';
end;
if ChBVegetables.Checked then
begin
pr:=true;
str:=str+'овощи, ';
end;
Delete(str,length(str)-1,2);
str:=str+'.';
if not(pr) then str:='Продукты не выбраны.';
MemResult.Lines.Add(str);
end;
Рис. 15.3. Вид формы примера 15.3