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

Информатика. Программирование в Delphi
291
//закрытие файла
CloseFile(f);
end;
22. В инспекторе объектов для таблицы StringGrid1 создайте процедуру
StringGrid1KeyPress для обработки события OnKeyPress.
//выполняется при редактировании ячеек в таблице
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
//если сортировка разрешена
if N8.Checked then
//если нажата клавиша Ввод
if key=#13 then
//сортировка таблицы
sort;
end;
23. Запустите приложение рис. 24.6.
Рис. 24.6
24. Окончательный вариант приложения приведен в листинге 24.1. Ком-
ментарии удалены.
Листинг 24.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, Grids, Menus;
type