A-M baby

Task/Mouse-position/Delphi/mouse-position-1.delphi

@@ -0,0 +1,5 @@
+procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+begin
+   lblMousePosition.Caption := ('X:' + IntToStr(X) + ', Y:' + IntToStr(Y));
+end;

Task/Mouse-position/Delphi/mouse-position-2.delphi

@@ -0,0 +1,15 @@
+program Project1;
+{$APPTYPE CONSOLE}
+uses
+  SysUtils, Controls, Windows;
+
+var
+  MyMouse : TMouse;
+begin
+  MyMouse := TMouse.Create;
+  While True do
+  begin
+    WriteLn('(X, y) = (' + inttostr(TPoint(MyMouse.CursorPos).x) + ',' + inttostr(TPoint(MyMouse.CursorPos).y) + ')');
+    sleep(300);
+  end
+end.