buchstabenunit.pas,hochhausunit.pas -> raetselunit.inc

1 files changed, 9 insertions, 2 deletions

diff --git a/unit1.pas b/unit1.pas
index d9e333a..27ec7c2 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  raetselunit;
+  raetselunit, StdCtrls, Messages, LCLType;
 
 type
 
@@ -18,6 +18,7 @@ type
     procedure FormShow(Sender: TObject);
   private
     { private declarations }
+    procedure WMGetDlgCode(var msg: tMessage); message WM_GETDLGCODE;
   public
     { public declarations }
     raetsel: tRaetsel;
@@ -31,10 +32,16 @@ implementation
 {$R *.lfm}
 
 uses
-  unit2, hochhausunit, buchstabenunit;
+  unit2;
 
 // tForm1 **********************************************************************
 
+procedure tForm1.WMGetDlgCode(var msg: tMessage);// message WM_GETDLGCODE;
+begin
+  inherited;
+  msg.result := msg.result or DLGC_WANTARROWS;
+end;
+
 procedure tForm1.formCreate(sender: tObject);
 begin
   application.createForm(tForm2, form2);