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

Информатика. Программирование в Delphi
289
19. В инспекторе объектов для пункта MainMenu1 Открыть ( N4) соз-
дайте процедуру N4Click для обработки события OnClick.
//щелчок мышью по пункту меню Открыть
procedure TForm1.N4Click(Sender: TObject);
var
//действие пользователя
r:integer;
begin
//диалоговое окно
r:=MessageDlg('Сохранить файл?',mtInformation,mbYesNoCancel,0);
//если пользователь нажал кнопку Yes
if r=mrYes then
//выбор имени сохраняемого файла
if SaveDialog1.Execute then
//сохранение таблицы в файл
savetofile(SaveDialog1.FileName);
//если пользователь нажал кнопку Cancel
if r=mrCancel then
//выход из процедуры
exit;
//выбор имени открываемого файла
if OpenDialog1.Execute then
//загрузка таблицы из файла
loadfromfile(OpenDialog1.FileName);
end;
20. В инспекторе объектов для пункта MainMenu1 Выход (N6 ) создайте
процедуру N6Click для обработки события OnClick.
//щелчок мышью по кнопке Выход
procedure TForm1.N6Click(Sender: TObject);
begin
//закрытие формы
Form1.Close;
end;
21. В инспекторе объектов для формы Form1 создайте процедуру
FormClose для обработки события OnClose.
//выполняется при закрытии формы
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
//действие пользователя