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

Информатика. Программирование в Delphi
230
13. В инспекторе объектов для пункта меню О программе (N3) создайте
обработчик события OnClick - процедуру N3Click.
//процедура происходит при нажатии по компоненту N3
//кнопка О программе
procedure TForm1.N3Click(Sender: TObject);
begin
//сообщение на экран
ShowMessage('Программа разработана на кафедре
"Автоматизация Машиностроения АПИ НГТУ"');
end;
14. В инспекторе объектов для формы Form1 создайте обработчик события
OnClose - процедуру FormClose.
//процедура происходит при закрытии формы
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
var
//для сохранения результата выбора пользователя
res:integer;
begin
//результат выбора пользователя
//(нажатие на одну из кнопок Yes, No, Cancel)
res:=MessageDlg('Сохранить файл '+fn+'???',
mtInformation,mbYesNoCancel,0);
//если пользователь нажал на кнопку Yes
if res=mrYes then
begin
//если файл был раньше сохранен
if fn<>'' then
//сохранение файла под старым именем
Memo1.Lines.SaveToFile(fn)
//если файл не был сохранен
else
//если пользователь в появившемся стандартном диалоге
//нажал на кнопку Сохранить
if SaveDialog1.Execute then
begin
//имя сохраняемого файла
fn:=SaveDialog1.FileName;
//сохранение файла
Memo1.Lines.SaveToFile(fn);
end
//если пользователь в появившемся стандартном диалоге