Changeset 68 for branches/Independent/Apps/Test/AppTest.pas

Timestamp:

Dec 17, 2024, 11:10:31 PM (4 days ago)

Author:

chronos

Message:

• Added: Mouse API support.

File:

• branches/Independent/Apps/Test/AppTest.pas (modified) (2 diffs)

branches/Independent/Apps/Test/AppTest.pas

@@ -23 +23 @@
 var
   Handle: THandle;
+  Pos: TPoint;
 begin
   with Context.Api do begin
@@ -37 +38 @@
     SetWindowRect(Handle, Bounds(350, 150, 500, 300));
     SetWindowVisible(Handle, True);
+
+    repeat
+      Pos := GetMousePosition;
+      SetWindowName(Handle, IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y));
+      Sleep(100 * OneMillisecond);
+    until Terminated;
   end;
 end;