204U软件 #
设为首页
加入收藏
联系我们
操作系统  |  电脑软件  |  系统组件  |  电影  |  电视剧  |  生活
搜索: [高级搜索]
您的位置: 首页 > 电脑软件 > 应用软件 > 编程相关
 
分类导航
下载排行
最新软件
delphi获得当前鼠标坐标
软件大小: 软件类型:国产软件
软件语言:简体中文 软件授权:共享软件
软件提交:admin 更新时间:2017-02-27
软件作者:不详 软件等级:
官方网址:官方网站 程序演示:演示地址
运行环境: 下载点数:0
下载统计:总下载:0,本月下载:0,本周下载:0,今日下载:0
发表评论 错误报告 加入收藏夹
软件介绍
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:TPoint; //用来存放坐标
hw:HWND; //用来存放窗口句柄
begin
  GetCursorPos(a);  //取得鼠标坐标,并存放进a中
  hw := WindowFromPoint(a); //取得变量a 对应的 窗口句柄
  Edit1.Text := IntToStr(a.X);
  Edit2.Text := IntToStr(a.Y);
  Edit3.Text := IntToStr(hw);
end;



————————————————————————————————————————
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  P: TPoint;
begin
    if (ssCtrl in Shift) and (Key = $31) then
    begin
       GetCursorPos(P);
       edt1.Text:= Format('%d',[P.X]);
       edt2.Text:= Format('%d',[P.Y]);
    end;

end;
下载地址
按字母检索
网站首页 | 关于我们 | 服务条款 | 联系我们 | 免责声明 | 网站地图
Powered by SpringRoom   © 1990-2017 SR Inc.