做mo时遇到的一个关于标注的问题! ( 积分: 50 )

  • 主题发起人 主题发起人 罗马红狼
  • 开始时间 开始时间

罗马红狼

Unregistered / Unconfirmed
GUEST, unregistred user!
我在做mo是,想要显示地图上一些图层的字段名称,通过一个checkbox来进行控制
procedure TForm1.CheckBox4Click(Sender: TObject);
var
layer : imomaplayer;
layers : imolayers;
lrender : imolabelrenderer;
begin
layers := map1.Layers;
layer := imomaplayer(createoleobject('mapobjects2.maplayer'));
layer := imomaplayer(layers.Item(0));
if not checkbox4.checked then
layer.Renderer := lrender;
map1.Refresh;
end;
这样写的话可以通过checkbox让标注消失,但是再点checkbox后标注不能回来!!!
layer.renderer没有visible属性,要怎么才能实现呢?哪位高手帮帮忙啊?
 
我在做mo是,想要显示地图上一些图层的字段名称,通过一个checkbox来进行控制
procedure TForm1.CheckBox4Click(Sender: TObject);
var
layer : imomaplayer;
layers : imolayers;
lrender : imolabelrenderer;
begin
layers := map1.Layers;
layer := imomaplayer(createoleobject('mapobjects2.maplayer'));
layer := imomaplayer(layers.Item(0));
if not checkbox4.checked then
layer.Renderer := lrender;
map1.Refresh;
end;
这样写的话可以通过checkbox让标注消失,但是再点checkbox后标注不能回来!!!
layer.renderer没有visible属性,要怎么才能实现呢?哪位高手帮帮忙啊?
 
那就不用消失的visible属性,用free和create方法试试行不[:)][:)]
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
937
SUNSTONE的Delphi笔记
S
S
回复
0
查看
921
SeaGod1
S
V
回复
0
查看
768
vbkiller
V
后退
顶部