关于toolused的问题 ( 积分: 50 )

为什么
procedure TForm1.Button1Click(Sender: TObject);
begin

Map1.Currenttool := 1;
end;

后事件
procedure TMapForm.Map1ToolUsed(Sender: TObject;
ToolNum: Smallint;
X1, Y1,
X2, Y2, Distance:do
uble;
Shift, Ctrl: Wordbool;
var EnableDefault: Wordbool);

var
distStr: string;
begin

case toolnum of
1:
begin

showmessage('hello')
end;

end;

end;

不执行呢，向前辈请教

为什么
procedure TForm1.Button1Click(Sender: TObject);
begin

Map1.Currenttool := 1;
end;

后事件
procedure TMapForm.Map1ToolUsed(Sender: TObject;
ToolNum: Smallint;
X1, Y1,
X2, Y2, Distance:do
uble;
Shift, Ctrl: Wordbool;
var EnableDefault: Wordbool);

var
distStr: string;
begin

case toolnum of
1:
begin

showmessage('hello')
end;

end;

end;

不执行呢，向前辈请教

在MapX中，它带的工具号在1000号以上。1000号以下可以由用户自定义。

是啊
可是运行后
并不产生消息提示框？？？
郁闷。
看mapx的例子就可以。仔细看了一边也不知所以然[?][?]

哈哈，刚才网络断了。
你的自定义1号工具并没有创建，当然不会产生消息呀。
举例：先要这样（在设置工具前）
Mapx1.CreateCustomTool(1, miToolTypePoint, miIconCursor);
miToolTypePoint是工具类型（这里是点工具）
miIconCursor工具使用的鼠标

procedure TForm1.FormCreate(Sender: TObject);
begin

Map1.CreateCustomTool(1, miToolTypeline, miIconCursor);

end;


procedure TForm1.Button1Click(Sender: TObject);
begin

Map1.Currenttool := 1;
end;



procedure TForm1.Map1ToolUsed(Sender: TObject;
ToolNum: Smallint;
X1, Y1,
X2, Y2, Distance:do
uble;
Shift, Ctrl: Wordbool;
var EnableDefault: Wordbool);

begin

showmessage('hello-hello');
case toolnum of
1:
begin

showmessage('hello');
end;

end;

end;


还是不行,实际鼠标已经变成line的形状了,只是begin
end中的语句不执行???[]

hahaha
偶自己知道了

谢谢