explorerfrm.~dfm

信息系统工作核心代码,若要具体可以联系我,这只是一部分核心代码,大家一起交流分享.谢谢

object Explorer: TExplorer
  Left = 0
  Top = 0
  Width = 696
  Height = 480
  Caption = #33756#21333#31649#29702#22120
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Height = 453
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 453
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object ScrollBox1: TScrollBox
      Left = 0
      Top = 0
      Width = 185
      Height = 453
      Align = alClient
      TabOrder = 0
      object TreeView1: TTreeView
        Left = 0
        Top = 17
        Width = 181
        Height = 432
        Align = alClient
        ChangeDelay = 50
        Color = clBtnFace
        Ctl3D = False
        Indent = 19
        ParentCtl3D = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnChange = TreeView1Change
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 181
        Height = 17
        Align = alTop
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        DesignSize = (
          181
          17)
        object SpeedButton1: TSpeedButton
          Left = 184
          Top = 0
          Width = 17
          Height = 17
          Anchors = [akTop, akRight]
          Caption = 'x'
          Flat = True
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Wingdings'
          Font.Style = []
          ParentFont = False
        end
        object SpeedButton2: TSpeedButton
          Left = 164
          Top = 0
          Width = 17
          Height = 17
          Anchors = [akTop, akRight]
          Caption = 'x'
          Flat = True
          Font.Charset = SYMBOL_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Wingdings'
          Font.Style = []
          ParentFont = False
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 0
    Width = 500
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object ScrollBox2: TScrollBox
      Left = 0
      Top = 0
      Width = 500
      Height = 453
      Align = alClient
      TabOrder = 0
      object ListView1: TListView
        Left = 0
        Top = 0
        Width = 496
        Height = 449
        Align = alClient
        Columns = <>
        Ctl3D = False
        ReadOnly = True
        TabOrder = 0
        OnDblClick = ListView1DblClick
        OnKeyDown = ListView1KeyDown
      end
    end
  end
end