Changeset 13 for os/trunk/Xvcl/Xvcl.Forms.pas

Timestamp:

Feb 29, 2016, 3:09:13 PM (8 years ago)

Author:

chronos

Message:

• Modified: Allow receive mouse move mesages to focused form even if mouse position is outside of form area.
• Fixed: Pass key press messages only to focused form and focused TControl like TEdit.

File:

• os/trunk/Xvcl/Xvcl.Forms.pas (modified) (2 diffs)

os/trunk/Xvcl/Xvcl.Forms.pas

@@ -90 +90 @@
       Move.StartMousePos := Position;
       Move.Active := True;
-     Result := True;
+      Result := True;
     end;
   end else
@@ -137 +137 @@
   if FFocused <> Value then begin
     FFocused := Value;
-    if Value then TScreen(Screen).FocusForm(Self);
+    if Value then TScreen(Screen).FocusedForm := Self;
   end;
 end;