2009年12月22日
[DELPHI]TreeView精确定位到每一个ITEM
摘要： procedure TForm1.TreeView1Click(Sender: TObject); var   aPoint: TPoint;   aNode: TTreeNode;   aHitTest: THitTests; begin   if GetCursorPos(aPoint) then   begin   ... 阅读全文
posted @ 2009-12-22 11:37 翼想天开的男孩 阅读(1021) 评论(0) 推荐(0) 编辑