高分!!!关于地图坐标!!!mapx(100分)

R

ranyang

Unregistered / Unconfirmed
GUEST, unregistred user!
我实现一个功能:
点击一个按钮,鼠标变为十字架,在图上可以点两点,形成一个矩形,我需要点的那两点的坐标(x1,y1),(x2,y2)。假如点三点会提示多了,少就提示少了?!怎么搞。。。
 
G

gpisces

Unregistered / Unconfirmed
GUEST, unregistred user!
>>鼠标变为十字架
我记得在MapObject中有可以设置鼠标形状的常量,你查下。。。
>>点三点会提示多了,少就提示少
做一个状态栏,点击按扭后显示:请选择第一点,
第一次点击后,状态栏显示:请选择第二点,
第二次点击后,形成矩形,状态栏显示:完成一次操作
再继续点击时,重新记为第一点,再点击一次,形成一个矩形(相当与重新点击你的那个按扭)
当你只点击一次时,做其他操作,退出!

??不知是否理解了题意,
 

大唐电信

Unregistered / Unconfirmed
GUEST, unregistred user!
做个线性工具不就行拉
Map1.CreateCustomTool(202, miToolTypeLine, miCrossCursor);
然后选择这个工具
Map1.CurrentTool:=202;
地图上操作完后,可以在OnToolUsed事件中得到坐标
procedure TForm1.Map1ToolUsed(ASender: TObject;
ToolNum: Smallint;
X1, Y1,
X2, Y2, Distance:do
uble;
Shift, Ctrl: WordBool;
var EnableDefault: WordBool);

x1,y1,x2,y2就是两个点的坐标
 
R

ranyang

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
850
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部