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

Информатика. Программирование в Delphi
287
procedure TForm1.N11Click(Sender: TObject);
begin
//сортировка таблицы
sort;
end;
14. В инспекторе объектов для пункта MainMenu1 Только чтение (N12)
создайте процедуру N12Click для обработки события OnClick.
//щелчок мышью по пункту меню Только чтение
procedure TForm1.N12Click(Sender: TObject);
begin
//если галочка отключена
if not N12.Checked then
//редактирование таблицы разрешено
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect,goEditing]
else
//редактирование таблицы запрещено
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect];
end;
15. В инспекторе объектов для пункта MainMenu1 Создать (N3 ) создайте
процедуру N3Click для обработки события OnClick.
//выполняется при щелчке мышью
//по пункту меню Создать
procedure TForm1.N3Click(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;