Стр. 229 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
229
if SaveDialog1.Execute then
begin
//новое имя сохраняемого файла
fn:=SaveDialog1.FileName;
//сохранение файла
Memo1.Lines.SaveToFile(fn);
end;
end;
10. В инспекторе объектов для пункта меню Выход (N8) создайте обра-
ботчик события OnClick - процедуру N8Click.
//процедура, которая происходит при нажатии по компоненту N8 −
//завершение работы программы
procedure TForm1.N8Click(Sender: TObject);
begin
//завершение работы приложения
Application.Terminate;
end;
11. В инспекторе объектов для пункта меню Шрифт (N9) создайте обра-
ботчик события OnClick - процедуру N9Click.
//процедура которая происходит при нажатии по компоненту N9 −
//изменение шрифта текста
procedure TForm1.N9Click(Sender: TObject);
begin
//если пользователь в появившемся стандартном диалоге
//нажал на кнопку ОК
If FontDialog1.Execute then
//изменение шрифта текста
Memo1.Font:=FontDialog1.Font;
end;
12. В инспекторе объектов для пункта меню Фон (N10) создайте обработ-
чик события OnClick - процедуру N10Click.
//процедура которая происходит при нажатии по компоненту N10 −
//изменение цвета фона текста
procedure TForm1.N10Click(Sender: TObject);
begin
//если пользователь в появившемся стандартном диалоге
//нажал на кнопку ОК
if ColorDialog1.Execute then
//изменение цвета фона текста
Memo1.Color:=ColorDialog1.Color;
end;