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

procedure TForml.N6Click(Sender: Tobject); f {Здесь N6 — имя команды «Выход»}

begin

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

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

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

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

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

19. «Свяжите» контекстное меню PopupMenul с формой Forml.

Щелкните на форме и задайте свойство формы PopupMenu как PopupMenul.

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

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

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

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

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

procedure Tforml.N2Click(Sender: TObject);

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

cod : integer;

strl, str2 : string;

begin

{B объект Memol вставляем строку с подписями столбцов значений аргумента и функции] 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:3,str2); if CheckBox1.Checked then (Вставляем строку в поле Memol} Memol .Lines.Add(sirJ +str2);

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

end;