mytest.pas

路灯监控

unit mytest;

interface

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

type
  TForm1 = class(TForm)
    Map1: TMap;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   map1.Pan(20,30);  //移动一定的距离
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  map1.AboutBox;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
map1.InfotipSupport:=true;
showmessage(inttostr(map1.Annotations.Count));//显示annotations对象的个数

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  map1.CurrentTool:=1000;//当前工具为鼠标
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  map1.CurrentTool:=1001;//当前工具为手形工具
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  //    map1.CurrentTool:=1002;//当前工具为向中间压缩工具
end;

end.