Changeset 8 for os/trunk/System

Timestamp:

Jun 2, 2013, 10:46:40 PM (12 years ago)

Author:

chronos

Message:

• Added: Implemented simple TEdit control which react to key press messages.

File:

• os/trunk/System/LDOS.Kernel.pas (modified) (2 diffs)

os/trunk/System/LDOS.Kernel.pas

@@ -73 +73 @@
     function ReadKey: Char;
     function KeyPressed: Boolean;
+    procedure HandleKeyPress(Key: Word);
   end;
 
@@ -303 +304 @@
 { TKeyboard }
 
+procedure TKeyboard.HandleKeyPress(Key: Word);
+var
+  Form: TForm;
+  NewMessage: TMessageKeyPress;
+begin
+  NewMessage := TMessageKeyPress.Create;
+  NewMessage.KeyCode := Key;
+  try
+    for Form in Kernel.Screen.Forms do
+    if Form.HandleMessage(NewMessage) then begin
+      Break;
+    end;
+  finally
+    NewMessage.Destroy;
+  end;
+end;
+
 function TKeyboard.KeyPressed: Boolean;
 begin