Changeset 85 for trunk/Forms/UFormAcronym.pas

Timestamp:

Aug 8, 2016, 12:37:58 PM (8 years ago)

Author:

chronos

Message:

• Fixed: ESC and ENTER keys handling in some dialogs.

File:

• trunk/Forms/UFormAcronym.pas (modified) (3 diffs)

trunk/Forms/UFormAcronym.pas

@@ -34 +34 @@
     procedure ACategoryAddExecute(Sender: TObject);
     procedure ACategoryRemoveExecute(Sender: TObject);
+    procedure EditMeaningKeyPress(Sender: TObject; var Key: char);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
-    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure ListBox1SelectionChange(Sender: TObject; User: boolean);
@@ -56 +56 @@
 
 { TFormAcronym }
-
-procedure TFormAcronym.FormKeyUp(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  if Key = 13 then ButtonOk.Click;
-  if Key = 27 then ButtonCancel.Click;
-end;
 
 procedure TFormAcronym.FormClose(Sender: TObject; var CloseAction: TCloseAction
@@ -94 +87 @@
     UpdateInterface;
   end;
+end;
+
+procedure TFormAcronym.EditMeaningKeyPress(Sender: TObject; var Key: char);
+begin
+  if Ord(Key) = 13 then ButtonOk.Click;
+  if Ord(Key) = 27 then ButtonCancel.Click;
 end;