...
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; |