layeradd.~dfm

delphi+mapx应用实例,包含MAPX所有功能!值得下载学习!

object addlayer: Taddlayer
  Left = 259
  Top = 413
  Width = 394
  Height = 236
  Caption = 'addlayer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 40
    Top = 32
    Width = 48
    Height = 13
    Caption = #26174#31034#22270#23618
  end
  object Label2: TLabel
    Left = 216
    Top = 24
    Width = 72
    Height = 13
    Caption = #36755#20837#22270#23618#21517#23383
  end
  object layerlist: TListBox
    Left = 40
    Top = 56
    Width = 145
    Height = 129
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    ItemHeight = 13
    TabOrder = 0
  end
  object layername: TEdit
    Left = 216
    Top = 56
    Width = 153
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 1
    Text = 'layername'
  end
  object add: TButton
    Left = 216
    Top = 96
    Width = 105
    Height = 33
    Caption = 'add'
    TabOrder = 2
    OnClick = addClick
  end
  object ok: TButton
    Left = 216
    Top = 152
    Width = 105
    Height = 33
    Caption = 'ok'
    TabOrder = 3
    OnClick = okClick
  end
end