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

Компонент TMemo (область просмотра)

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

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

Для вывода данных в область просмотра пользуются стандартным методом 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

Пример 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

Список действий (TActionList)

Компонент TActionList позволяет централизировать реакцию программы на действия пользователя (события), выполняемые с разными компонентами. Во время разработки программист определяет действия в редакторе списка действий (рис. 15.4). Затем эти действия подключаются к клиентским элементам управления посредством свойства Action этих элементов. Клиентский элемент управления генерирует действие в ответ на событие, например нажатие кнопки мыши. Клиентами списка действий обычно служат пункты меню или кнопки.

Рис. 15.4. Редактор списка действий

Список действий размещается на форме с помощью кнопки на стандартной панели инструментов. Для открытия редактора списка действий нужно дважды нажать мышью на этом компоненте. В редакторе можно добавлять, удалять и переставлять действия.

Свойства каждого действия устанавливаются в инспекторе объектов. Свойство Name идентифицирует действие. Другие свойства соответствуют свойствам клиентских элементов управления и обычно имеют те же имена. Компонент TActionList видим только во время разработки, а во время выполнения программы на форме он не появляется.

Пример 15.4. При нажатии левой и правой кнопки формы увеличивают показания счетчика и информация о его текущем состоянии выводится в многострочный редактор. Экранная форма программы показана на рис. 15.5. Обработка событий, происходящих при нажатии левой и правой кнопок, одинакова и имеет вид

var k:integer=0;

procedure TFrmAction.actClickedBtnExecute(Sender: TObject);

begin

inc(k);

MemOut.Lines.Add('Вы щелкнули на кнопке всего '+inttostr(k)+' раз.');

end;

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

Главное меню (TMainMenu)

Компонент TMainMenu создает в среде Delphi главное меню формы. Элемент управления состоит из строки меню и ассоциированных с его пунктами раскрывающих меню, которые содержат дополнительные пункты TMenuItem.

Главное меню размещается на форме с помощью кнопки на стандартной панели инструментов. Для создания и изменения меню в процессе разработки приложения предназначен Конструктор меню (MenuDesigner), который вызывается контекстным меню компонента TMainMenu или двойным нажатием мыши на этом компоненте. При работе с конструктором используются команды его контекстного меню (рис. 15.6). С их помощью можно добавить (Insert) и удалить (Delete) пункт меню, создать подменю (CreateSubMenu), выбрать меню (Select Menu), сохранить его как шаблон (Save As Template), вставить меню из шаблона (Insert From Template), удалить шаблоны (Delete Templates), вставить меню из файла ресурса (Insert From Resource).

Рис. 15.6. Конструктор меню

Пример 15.5. Создан простой редактор содержащий меню. Экранная форма программы показана на рис. 15.7.

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

Не нашли, что искали? Воспользуйтесь поиском: