大虾帮忙，急...

Question

各位大侠有没有用过TVirtualStringTree这个组件啊，我现在有问题急等：
1.它的Header怎么可以拖来拖去啊。
2.它的Hint，怎么不可以像TListView，那样设置一个属性就可以搞定啊。在线等，急用。

Answer 1

我以前用过，找找代码先，wait

Answer 2

在Header->Options->hoDrag->False就OK
第2个问题：设置设置ShowHit=True, 设置HintMode = hmHint，不能用hmDefault
再响应你的OnGetHint函数就可以了
procedure ResultVSTGetHint(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  PData: PItemData;
begin
  PData := Sender.GetNodeData(Node);
  case Column of
    0: CellText := PData^.FileName;
  ...
  end;
end;给分吧。