谁知道Delphi中，Palette Properties界面里,Components用的是什么控件？

Question

1、如题,类似功能如何实现？
2、用StringGrid,如果不要显示FixedCols,如何能实现拖拉的方式调整数据行？
3、有什么好的控件吗？
谢谢！！

Answer 1

不好意思，说错了，是LISTVIEW

Answer 2

1。Delphi不用三方控件的，这是很明显的道理，全是做IDE的人自己写的。
2。有些难，得判断很消息和位置的关系。
3。去Delphibox看看吧，好东西太多了，无论是应用，还是学习。

Answer 3

谢谢hsmserver(撒哈拉之雨的悲伤) 
我是想实现以下功能：
从数据库里取出数十条数据，然后通过操作员通过拖拉的方式来调整行排列顺序后，保存下来。
开始我想用dbgrid，不容易达到要求。又改用StringGrid，又遇到以上的问题。
用ListView应该可以了，以前记得不能选一行，所以我想都没想用ListView。还有， linzhengqun(风。爱的翔舞)，谢谢你！！

Answer 4

>>Palette Properties界面里,Components用的是什么控件？ 不大理解你問的是什麼!! 容器類的控件都可啊, 如panel, toolbar ...

Answer 5

你打开delphi，看Component菜单，最下面的Configure Palette页面。就明白了

Answer 6

左右都是TListBox,右边多了个THeaderControl

Answer 7

object PaletteConfigPage: TPaletteConfigPage
  Left = 0
  Top = 0
  Width = 419
  Height = 317
  HelpContext = 2000
  Caption = 'Palette'
  OnCreate = PaletteConfigPageCreate
  OnDestroy = PaletteConfigPageDestroy
  OnBroadcast = PaletteConfigPageBroadcast
  object PageLabel: TLabel
    Left = 8
    Top = 6
    Width = 50
    Height = 17
    HelpType = htKeyword
    AutoSize = False
    Caption = '&Pages:'
    FocusControl = PageListBox
  end
  object ToolLabel: TLabel
    Left = 137
    Top = 6
    Width = 105
    Height = 17
    HelpType = htKeyword
    AutoSize = False
    Caption = '&Components:'
    FocusControl = ToolListBox
  end
  object PageListBox: TListBox
    Left = 8
    Top = 22
    Width = 113
    Height = 251
    Style = lbOwnerDrawFixed
    IntegralHeight = True
    ItemHeight = 13
    TabOrder = 0
    OnClick = PageClick
    OnDragDrop = PageDragDrop
    OnDragOver = PageDragOver
    OnDrawItem = PageListBoxDrawItem
    OnEnter = PagesGotFocus
    OnKeyDown = ListKeyDown
    OnMouseDown = PageMouseDown
  end
  object AddButton: TButton
    Left = 8
    Top = 285
    Width = 76
    Height = 25
    Caption = '&Add...'
    TabOrder = 2
    OnClick = AddClick
  end
  object DeleteButton: TButton
    Left = 90
    Top = 285
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 3
    OnClick = DeleteClick
  end
  object RenameButton: TButton
    Left = 172
    Top = 285
    Width = 76
    Height = 25
    Caption = '&Rename...'
    TabOrder = 4
    OnClick = RenameClick
  end
  object ResetPaletteBtn: TButton
    Left = 254
    Top = 285
    Width = 157
    Height = 25
    Caption = 'De&fault Pages'
    TabOrder = 5
    OnClick = ResetPalette
  end
  object ToolListPanel: TPanel
    Left = 137
    Top = 22
    Width = 274
    Height = 251
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'ToolListPanel'
    TabOrder = 1
    object ToolListHeader: THeaderControl
      Left = 0
      Top = 0
      Width = 270
      Height = 20
      DragReorder = False
      Sections = <
        item
          ImageIndex = -1
          MinWidth = 32
          Text = 'Name'
          Width = 120
        end
        item
          ImageIndex = -1
          Text = 'Package'
          Width = 75
        end
        item
          ImageIndex = -1
          Text = 'Page'
          Width = 75
        end>
      OnSectionClick = ToolListHeaderSectionClick
      OnSectionResize = ToolListHeaderSectionResize
      OnResize = ToolListHeaderResize
    end
    object ToolListBox: TListBox
      Left = 0
      Top = 20
      Width = 270
      Height = 227
      Style = lbOwnerDrawFixed
      Align = alClient
      BorderStyle = bsNone
      ItemHeight = 30
      TabOrder = 0
      OnClick = ToolListBoxClick
      OnDragDrop = ToolDragDrop
      OnDragOver = ToolDragOver
      OnDrawItem = ToolDrawItem
      OnEnter = ToolsGotFocus
      OnKeyDown = ListKeyDown
      OnMouseDown = ToolMouseDown
    end
  end
  object MoveUp: TButton
    Left = 254
    Top = 285
    Width = 75
    Height = 25
    Caption = 'Move &Up'
    TabOrder = 6
    OnClick = MoveClick
  end
  object MoveDn: TButton
    Left = 336
    Top = 285
    Width = 75
    Height = 25
    Caption = 'Move D&own'
    TabOrder = 7
    OnClick = MoveClick
  end
end