罗
罗马红狼
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属性,要怎么才能实现呢?哪位高手帮帮忙啊?
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属性,要怎么才能实现呢?哪位高手帮帮忙啊?