useritemunit.dfm

三层的通用架构

object UserItemForm: TUserItemForm
  Left = 242
  Top = 123
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = #39033#30446#36873#39033
  ClientHeight = 350
  ClientWidth = 362
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Button1: TButton
    Left = 143
    Top = 307
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 255
    Top = 307
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'(&C)'
    TabOrder = 2
    OnClick = Button2Click
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 12
    Width = 330
    Height = 277
    TabOrder = 0
    object Label1: TLabel
      Left = 18
      Top = 53
      Width = 72
      Height = 12
      Caption = #33258#21160#25171#24320'(&A):'
      FocusControl = DefaultItemComboBoxEx
    end
    object Label2: TLabel
      Left = 18
      Top = 81
      Width = 72
      Height = 12
      Caption = #19981#33021#25171#24320'(&N):'
      FocusControl = NotOpenTreeView
    end
    object DefaultItemComboBoxEx: TComboBoxEx
      Left = 98
      Top = 49
      Width = 214
      Height = 22
      ItemsEx.CaseSensitive = False
      ItemsEx.SortType = stNone
      ItemsEx = <
        item
          Caption = '<'#26410#35774#32622'>'
        end>
      Style = csExDropDownList
      StyleEx = []
      ItemHeight = 16
      TabOrder = 1
      Images = TheMainForm.ImageList1
      DropDownCount = 8
    end
    object CheckBox1: TCheckBox
      Left = 18
      Top = 22
      Width = 215
      Height = 17
      Caption = #30331#24405#25104#21151#21518#33258#21160#23637#24320#25152#26377#21151#33021#32452'(&E)'
      TabOrder = 0
    end
    object NotOpenTreeView: TTreeView
      Left = 18
      Top = 98
      Width = 294
      Height = 161
      HideSelection = False
      Images = TheMainForm.ImageList1
      Indent = 19
      MultiSelect = True
      MultiSelectStyle = [msControlSelect, msShiftSelect]
      ReadOnly = True
      ShowButtons = False
      ShowLines = False
      ShowRoot = False
      TabOrder = 2
    end
  end
end