diff options
-rw-r--r-- | src/gui/inputquerydialog.inc | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/gui/inputquerydialog.inc b/src/gui/inputquerydialog.inc index 094a58e2..6330d02c 100644 --- a/src/gui/inputquerydialog.inc +++ b/src/gui/inputquerydialog.inc @@ -31,6 +31,8 @@ type {@VFD_HEAD_END: fpgQueryDialog} procedure SetupCaptions; procedure edtTextKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean); + protected + procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override; public procedure AfterCreate; override; end; @@ -71,6 +73,15 @@ begin btnOK.Click; end; +procedure TfpgQueryDialog.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); +begin + if KeyCode = keyEscape then + begin + consumed := True; + ModalResult := mrCancel; + end; +end; + procedure TfpgQueryDialog.AfterCreate; begin {%region 'Auto-generated GUI code' -fold} |