鼠标点击在控件上,转换成屏幕上的像素,请问语句。 感谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var p: TPoint;begin p := Button1.ClientToScreen(Point(X, Y));end;或者直接用GetCursorPos(p); 请教一条SQL语句。 7年工作经验,想换工作,请问能值多少钱? 有关多层服务端 谁有EAN-13条码字体,死活找不到.. 大家好!!由于修改的问题!!谢谢!! table NAT 地址转换 ,Delphi编程如何实现? 如何动态创建button DELPHI7如何安装Qreport? 请问对串口 (com)操作的控件是什么 啊?? 请教问题 刚做完语音,效果不错,大家试试
Shift: TShiftState; X, Y: Integer);
var p: TPoint;
begin
p := Button1.ClientToScreen(Point(X, Y));
end;或者直接用
GetCursorPos(p);