GetPoint
...
GetPoint prompts the user to select a point by clicking on the
...
activeplan,
...
then returns the point coordinates in X and Y.
...
If the user clicks a valid point, the result is 1 (True); otherwise,
...
the result is 0 (False).
...
Syntax:
Procedure: GetPoint(Var X: Double; Var Y: Double; Hint: String): Integer;
API Call:
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
var
x, y: double;
begin
if getpoint(x,y, 'Click a point') = 1 then
showmessage('Clicked at ' + floattostr(x) + ', ' + floattostr(y))
else
showmessage('Canceled');
end; |