poptree_form.dfm

滚动下拉框－不过下拉的是树型结构

object PopTreeForm: TPopTreeForm
  Left = 369
  Top = 307
  BorderStyle = bsNone
  Caption = 'PopTreeForm'
  ClientHeight = 195
  ClientWidth = 159
  Color = clBtnFace
  Constraints.MinWidth = 130
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object suiPanel1: TsuiPanel
    Left = 0
    Top = 0
    Width = 159
    Height = 195
    UIStyle = WinXP
    BorderColor = 6842472
    Caption = #36873#39033
    ShowButton = True
    CaptionFontColor = clBlack
    Align = alClient
    TabOrder = 0
    Color = clWhite
    object Tree: TVirtualStringTree
      Left = 4
      Top = 25
      Width = 151
      Height = 166
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Header.AutoSizeIndex = -1
      Header.Font.Charset = DEFAULT_CHARSET
      Header.Font.Color = clWindowText
      Header.Font.Height = -11
      Header.Font.Name = 'MS Sans Serif'
      Header.Font.Style = []
      Header.MainColumn = -1
      Header.Options = [hoColumnResize, hoDrag]
      ScrollBarOptions.ScrollBarStyle = sbmFlat
      TabOrder = 0
      OnChange = TreeChange
      OnEnter = TreeEnter
      OnExit = TreeExit
      OnFocusChanged = TreeFocusChanged
      OnGetText = TreeGetText
      OnHotChange = TreeHotChange
      OnKeyDown = TreeKeyDown
      Columns = <>
      WideDefaultText = ''
    end
  end
end