Как сделать, чтобы форма закрывалась при нажатии "Esc".Компилятор: Delphi Для начала необходимо установить свойство формы KeyPreview в True. А потом уже можно отлавливать "Esc": procedure TForm1.FormCreate(Sender: TObject); begin Form1.KeyPreview := True; end; procedure TForm1.FormKeyPress (Sender: TObject; var Key: Char); begin if key = #27 then Close; end;
|