I iamfly Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-19 #2 getcursorpos,获得鼠标相对于桌面窗口的坐标,应该就是你说的桌面上的位置:)
B Brave Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-19 #3 procedure TForm1.Button1Click(Sender: TObject); var pt:tpoint; begin GetCursorPos(PT); edit1.text:=inttostr(pt.x)+','+inttostr(pt.y) //鼠标在整个屏幕上的位置 end;
procedure TForm1.Button1Click(Sender: TObject); var pt:tpoint; begin GetCursorPos(PT); edit1.text:=inttostr(pt.x)+','+inttostr(pt.y) //鼠标在整个屏幕上的位置 end;