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).

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

Поупражняйтесь с многострочным полем редактирования 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. Выполните программу и поупражняйтесь с разными значениями левой, правой границы и шага аргумента. Закройте окно программы «Табулирование функции».

23. Сохраните созданную программу в своей папке.

24. Создайте ехе-файл программы.

25. Закройте Delphi, запустите созданную программу и выполните вычисления для различных входных данных.

26. Продемонстрируйте созданную форму преподавателю. Закончите работу.

Задания:

1. Добавьте к контекстному меню команду «Выход» и запрограммируйте ее.

2. Создайте и запрограммируйте еще одно контекстное меню, содержащее команды «Убрать все флажки», «Включить все флажки», «Включить инверсивно». Такое меню должно появляться после щелчка правой клавишей мыши, установив курсор в любой точке панели с флажками. Не забудьте «привязать» это меню (PopupMenu2) к панели с флажками (см. пункт 19).

Рис. 1 Рис. 2

Рис. 3 Рис. 4 Рис.5