...
GetPoint(Var X: Double; Var Y: Double; Hint: String): Integer;
Source Code
...
Delphi
| 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; |
...