Delphi仿QQ窗口自动定位(磁性吸附)功能.rar

上传者: 39841848 | 上传时间: 2021-09-08 14:08:35 | 文件大小: 6KB | 文件类型: RAR
Delphi仿QQ窗口自动定位或隐藏(磁性吸附)功能,当鼠标拖动窗口至屏幕边缘或主窗体附近时,窗口会自动靠近主窗口,有的是自动吸附在主窗口上,好像带有磁性一样,这种窗口目前被应用到了很多视频播放器上面,比如播放列表可从主窗口脱离,然后拖近主窗口时,会自动吸在主窗口上。部分主程序代码:
  当 top 距屏幕上侧 20 像素时,自动隐藏
   if frmMain.Top Screen.Width) then
   frmMain.Left:= Screen.Width - frmMain.Width;
   end
   // 当 left 距屏幕下侧 20 像素时,自动隐藏
   else if frmMain.Left frmMain.Width - Screen.Width >= -20 then
   //将frmMain向右移,在屏幕右方露出4像素

文件下载

资源详情

[{"title":"( 6 个子文件 6KB ) Delphi仿QQ窗口自动定位(磁性吸附)功能.rar","children":[{"title":"codesc.net","children":[{"title":"仿QQ主窗体自动吸附及隐藏","children":[{"title":"Unit1.dfm <span style='color:#111;'> 687B </span>","children":null,"spread":false},{"title":"Unit1.ddp <span style='color:#111;'> 55B </span>","children":null,"spread":false},{"title":"Project2.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 2.82KB </span>","children":null,"spread":false},{"title":"Project2.dpr <span style='color:#111;'> 194B </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 5.27KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]

评论信息

免责申明

【只为小站】的资源来自网友分享,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论 【只为小站】 经营者是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二条之规定,若资源存在侵权或相关问题请联系本站客服人员,zhiweidada#qq.com,请把#换成@,本站将给予最大的支持与配合,做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明