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

Информатика. Программирование в Delphi
231
//нажал кнопку Отмена
else
//отмена закрытия формы
Action:=caNone;
end
else
//если пользователь нажал на кнопку No
if res=mrNo then
//закрытие формы без сохранения файла
Action:=caFree
//если пользователь нажал на кнопку Cancel
else
//отмена закрытия формы
Action:=caNone;
end;
15. Запустите приложение рис. 20.5.
Рис. 20.5
16. Окончательный вариант приложения приведен в листинге 20.1. Ком-
ментарии удалены.
Листинг 20.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;