C
caoguangchuan
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.TreeView1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
if Button = mbRight then
begin
TreeView1.GetNodeAt(X, Y);
if treeView1.selected <> nil then
pm1.popup(x,y)
else
pm2.popup(x,y)
end;
在popup(x,y)中x,y是相对坐标,然而弹处菜单在绝对坐标处,造成弹处位置部队,怎样转换成绝对坐标呢
然而,使用clienttoscreen,它的参数是一个Tpoint类型的数据,x,y又是一个integer类型,怎样进行(x,y)
转换成Tpoint,Tpoint转换成(x,y),求助!
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
if Button = mbRight then
begin
TreeView1.GetNodeAt(X, Y);
if treeView1.selected <> nil then
pm1.popup(x,y)
else
pm2.popup(x,y)
end;
在popup(x,y)中x,y是相对坐标,然而弹处菜单在绝对坐标处,造成弹处位置部队,怎样转换成绝对坐标呢
然而,使用clienttoscreen,它的参数是一个Tpoint类型的数据,x,y又是一个integer类型,怎样进行(x,y)
转换成Tpoint,Tpoint转换成(x,y),求助!