Вставьте в форму главное и контекстное меню (объекты типа MainMenu и PopupMenu).

Компоненты типа MainMenu и PopupMenu находятся на закладке Standard. Расположите их пиктограммы в произвольном месте формы (на этапе выполнения программы они будут невидимыми).

Введите названия команд главного меню формы (см. рис. 3 и рис. 4).

Выберите объект MainMenu1 и дважды щелкните на значении его свойства Items. Другой способ - дважды щелкните на самом объекте.

Закройте окно создания команд главного меню Form1.MainMenu1.

Введите названия команд контекстного меню формы.

Для этого аналогично, как для главного меню, поменяйте значения свойства Items объекта PopupMenu1 в окне Form1.PopupMenu1 (как вызвать это окно см. п. 14). В окне Object Inspector введите значение свойства Caption - «Очистить поле ввода» (без кавычек, рис.5). Можете придумать и задать еще несколько команд. Закройте окно Form1.PopupMenul. Сохраните форму (Save All).

16. Запрограммируйте команду «Очистить поле вывода» главного меню с помощью метода Clear объекта Memo1.

Методы объекта - это набор процедур и функций, которые аналогично свойствам применяют к объекту. Как и в случае свойства, имя объекта от имени метода отделяется точкой. Щелкните по команде меню «Очистить поле вывода». Появится заготовка процедуры реакции на событие вызова этой команды. В нее запишите команду вызова метода Clear для очистки поля вывода объекта Memo1:

procedure TForml.N3Click(Sender: TObject);

{Здесь N3 - имя команды «Очистить поле вывода», у Вас может быть другой номер, его не исправляйте}

Begin

{Вызовем метод объекта Memo1, очищающий}

Memo1.Clear {многострочное поле редактирования}

end; {Теперь щелкните на форме}

17. Запрограммируйте команду «Выход» главного меню, воспользовавшись стандартной процедурой Close.

procedure TForm1.N6Click(Sender: TObject);

{Здесь N6 - имя команды «Выход»}

Begin

Close {Закрываем окно программы}

end;

Сохраните выполненную на данный момент форму в своей папке (File =>Save All).

18. Запрограммируйте команду «Очистить поле вывода» контекстного меню.

Дважды щелкните на команде контекстного меню «Очистить поле вывода» в окне Forml.PopupMenul (вызов этого окна см. в п. 14). Текст процедуры очистки такой же, как и для команды главного меню: Меmо1.Сlеаr(см. п. 16).

19. «Свяжите» контекстное меню PopupMenul с формой Forml. Щелкните на форме и задайте свойство формы PopupMenu как PopupMenu1.

Замечание. Значение свойства формы Menu автоматически устанавливается как MainMenu1 в момент создания главного меню (п. 13).

Запустите созданную на этот момент программу и исследуйте ее работу.

Поупражняйтесь с многострочным полем редактирования Memol, вводя и корректируя в нем некоторый текст. Обратите внимание на то, что в этом окне можно выполнять такие же действия с текстом, как и в текстовом редакторе: выделять фрагмент текста, копировать, переносить или удалять этот фрагмент. Вытрите текст с помощью команды главного меню «Очистить поле вывода». Еще раз введите текст и вытрите его с помощью контекстного меню (для вызова контекстного меню формы нужно щелкнуть правой клавишей мыши на свободном месте формы). Закончите работу программы, щелкнув на кнопке «Выход».

21. Запрограммируйте команду «Табулировать».

Свойство Lines объекта типа Меmо - комплексное, то есть оно также является объектом со своими свойствами и методами. Результат работы данной программы - это таблица, которая состоит из нескольких строк. Чтобы добавить в поле Memol новую строку таблицы, надо поменять значения комплексного свойства Lines (строки) с помощью его метода Add (добавить) с одним аргументом - символьной строкой: Memol.Lines.Add('строка символов'). Щелкните на команде «Табулировать» из главного меню один раз. Появится заготовка к процедуре, которую заполните так:

procedure Tform1.N2CIick(Sender:Tobject);

var x, у, h,a,b: real;

cod: integer; strl, str2: string;

Begin

{В объект Memo1 вставляем строку с подписями столбцов значений аргумента и функции}

Memol.Lines.Add(' X F(X)'); {Получаем числовое значение левой границы}

Val(Editl.Text,a,cod);

{Получаем числовое значение правой границы}

Val(Edit2.Text, b, cod);

(Получаем числовое значение шага}

Val(Edit3.Text, h, cod);

x:=a; {Табулируем функцию}

while x<=b+h/2 do {пока аргумент х не превысит}

begin {правую границу с определенным запасом}

y:=sin(x)+1; {Вычисляем значения функции}

{Формируем символьные строки из значений }

Str(x:8:2,strl); { аргумента и функции}

Str(y:8:2,str2);

if CheckBox1.Checked then

{Вставляем строку в поле Memo1}

Memo1.Lines.Add(strl +str2);

x:=x+h; {Увеличиваем аргумент на величину шага}

End; end;

22. Выполните программу и поупражняйтесь с разными значениями левой, правой границы и шага аргумента. Закройте окно программы «Табулирование функции».