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像素
1