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像素
2021-09-08 14:08:35
6KB
1