demo must handle KeyDown

Alexey-T · Dec 15, 2023 · 8e7ab88 · 8e7ab88
1 parent 23f49fa
commit 8e7ab88
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 2 deletions.
diff --git a/app/demo_simple/project1.lpi b/app/demo_simple/project1.lpi
@@ -45,6 +45,7 @@
         <Filename Value="unit1.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
       </Unit1>

diff --git a/app/demo_simple/unit1.lfm b/app/demo_simple/unit1.lfm
@@ -6,9 +6,11 @@ object Form1: TForm1
   Caption = 'Simple completion demo'
   ClientHeight = 327
   ClientWidth = 671
-  OnShow = FormShow
+  KeyPreview = True
   Position = poScreenCenter
-  LCLVersion = '2.3.0.0'
+  LCLVersion = '3.99.0.0'
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
   object Panel1: TPanel
     Left = 0
     Height = 50

diff --git a/app/demo_simple/unit1.pas b/app/demo_simple/unit1.pas
@@ -23,6 +23,7 @@   TForm1 = class(TForm)
       var AHandled: boolean);
     procedure EdKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
   private
     procedure DoCompletionProp(Sender: TObject;
@@ -94,5 +95,14 @@ procedure TForm1.EdKeyDown(Sender: TObject; var Key: Word;
     Ed.DoCommand(cmd_AutoComplete, TATCommandInvoke.AppInternal);
 end;
 
+procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+  if Assigned(FormAutoCompletion) and FormAutoCompletion.Visible then
+  begin
+    FormAutoCompletion.FormKeyDown(Sender, Key, Shift);
+    exit;
+  end;
+end;
+
 end.