How would I get the actual X and Y position?
I've tried the GetMousePos or something but that's a procedure and doesn't really return anything.
How would I get the actual X and Y position?
I've tried the GetMousePos or something but that's a procedure and doesn't really return anything.
Simba Code:Procedure TestMouse;
Var
M: TPoint;
Begin
GetMousePos( M.X, M.Y);
Writeln( 'Our position is ' + IntToStr( M.X) + ' and ' + IntToStr( M.Y));
End;
Oh Hai Dar
Okay thanks.
What Main said is fine and dandy, but if you want it to be a little less complicated when using the vars, do this -
Simba Code:procedure NIFNISDFDFIKS;
var
x,y:Integer;
begin
GetMousePos(x,y);
Writeln( 'Our position is ' + IntToStr( M.X) + ' and ' + IntToStr( M.Y));
end;
There are currently 1 users browsing this thread. (0 members and 1 guests)