User Input - GetPoint
Text:
API Call:GetPoint prompts the user to select a point by clicking on the active plan, the 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).
Declaration:
GetPoint(Var X: Double; Var Y: Double; Hint: String): Integer;
Source Code:
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; |