connectionsunit.dfm

三层的通用架构

object ConnectionsForm: TConnectionsForm
  Left = 268
  Top = 152
  Width = 382
  Height = 250
  Caption = #36828#31243#23458#25143#20449#24687
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 374
    Height = 203
    Align = alClient
    Checkboxes = True
    Columns = <
      item
        Caption = #23458#25143
        Width = 100
      end
      item
        Caption = #36830#25509#26102#38388
        Width = 120
      end
      item
        Caption = #24403#21069#29992#25143
        Width = 150
      end
      item
        Alignment = taCenter
        Caption = 'CustomObject'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object0'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object1'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object2'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object3'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object4'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object5'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object6'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object7'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object8'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = 'Object9'
        Width = 90
      end>
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 203
    Width = 374
    Height = 20
    Panels = <>
    SimplePanel = True
    SimpleText = #21246#20013#30340#36828#31243#23458#25143#21487#20197#22312#20851#38381#26412#31383#21475#21518#34987#24378#34892#26029#24320#36830#25509
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 144
    Top = 64
    object F1: TMenuItem
      Caption = #26631#35760'(&F)'
      OnClick = F1Click
    end
    object U1: TMenuItem
      Caption = #21047#26032'(&U)'
      ShortCut = 116
      OnClick = U1Click
    end
  end
end