PlugIns编程

开发平台：

Delphi

frmResTree.dfm：源码内容

							object ResTreeForm: TResTreeForm
  Left = 220
  Top = 240
  Width = 551
  Height = 365
  Caption = 'ResTreeForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 328
    Top = 24
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object TreeView1: TTreeView
    Left = 20
    Top = 8
    Width = 193
    Height = 297
    HideSelection = False
    Indent = 19
    TabOrder = 0
    OnChange = TreeView1Change
  end
  object Button1: TButton
    Left = 236
    Top = 20
    Width = 75
    Height = 25
    Action = actLoad
    TabOrder = 1
  end
  object Button2: TButton
    Left = 236
    Top = 52
    Width = 75
    Height = 25
    Action = actAdd
    TabOrder = 2
  end
  object Button3: TButton
    Left = 236
    Top = 84
    Width = 75
    Height = 25
    Action = actDelete
    TabOrder = 3
  end
  object Button4: TButton
    Left = 240
    Top = 116
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 4
  end
  object ActionList1: TActionList
    Left = 344
    Top = 48
    object actLoad: TAction
      Caption = '&Load'
      OnExecute = actLoadExecute
    end
    object actAdd: TAction
      Caption = '&Add'
    end
    object actDelete: TAction
      Caption = '&Delete'
      OnExecute = actDeleteExecute
      OnUpdate = actDeleteUpdate
    end
    object actRefresh: TAction
      Caption = '&Refresh'
      OnExecute = actRefreshExecute
    end
  end
end

						