Клавиша:
Определить:
Vcl.Forms.TForm.OnKeyDownprocedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_ESCAPE) and Printer.Printing then
begin
Printer.Abort;
MessageDlg('Printing aborted', mtInformation, [mbOK],0);
end;
end;
Символ:
Определить
Vcl.Forms.TForm.OnKeyPress.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0)
end;
не реагирует на нажатия
Добавите
Application.ProcessMessages, например перед перерисовкой.