delphi中LptoDp的用法(100分)

1。开始时我把TTreeView的RightClickSelect设为True,可是在我右击了一个结点之后TTreeView的Selected属性并指向这个结点。<br><br>2.后来我想用TTreeView的OnMouseDown实现，在OnMouseDown中我用如下代码<br>var<br>&nbsp; par:array[0..1] of TPoint;<br>begin<br>...<br>pa[0].x:=x;pa[0].y:=y;<br>if LPtoDP(TreeView1.Canvas.Handle,pa,1) then<br>&nbsp; popupmenu1.Pop(pa[0].x,pa[0].y);<br>end;<br>怪就怪在调用了LPtoDP(TreeView1.Canvas.Handle,pa,1)之后，pa[0]这个point<br>的值没有任何变化。这是为何。 <br>

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=176287

&gt;&gt;

接受答案了.