addlayerinfo.~pas

来自「delphi+mapx应用实例,包含MAPX所有功能!值得下载学习!」· ~PAS 代码 · 共 59 行

unit addlayerinfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,MapXLib_TLB, ComObj;

type
  Tlayerform = class(TForm)
    layerListBox: TListBox;
    Label1: TLabel;
    addinfo: TButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure addinfoClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  layerform: Tlayerform;
  currentmap : Tmap;

implementation

uses formmain, layerstruce;

{$R *.dfm}

procedure Tlayerform.FormCreate(Sender: TObject);
var
  lyr:mapxlib_tlb.layer;
  i:integer;
begin
  currentmap := mainform.Map1;
  layerListBox.Clear;
  for i:=1 to currentmap.Layers.Count do
  begin
    lyr:=currentmap.layers.item(i);
    layerListBox.items.Add(lyr.Name);
  end;
end;

procedure Tlayerform.addinfoClick(Sender: TObject);
begin
  addinfolayer.show;
end;

procedure Tlayerform.Button1Click(Sender: TObject);
begin
  close;
end;

end.