相关推荐

Delphi仿QQ窗口自动定位（磁性吸附）功能.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像素

“磁性” 窗口

{通常，我们拖动对话框窗口的标题栏来移动窗口，但有时候，我们想通过鼠标在客户区上拖动来移动窗口。拖动对话框窗口的标题栏来移动窗口的方案是，处理鼠标消息WM_LBUTTONDOWN和WM_LBUTTONUP。在OnLButtonUp函数中计算鼠标位置的变化，调用MoveWindow实现窗口的移动。注意，拖动标题栏移动窗口的时候，会出现一个矩形框，它提示了窗口移动的当前位置。当鼠标左键放开的时候，窗口

delphi 异形窗体

DELPHI 透明窗体 心血来潮想用delphi做透明窗体，要知道我虽然搞了N年编程，但什么也没编写成。惭愧的很，以前VCVB之类的光搞懂它们的控件就让我很费劲，没办法不懂英文。还是学DELPHI吧，听说是聪明程序员学习的语言。在网络上搜索下透明窗体，哈文章不少，视频也有，但都太繁琐，关键看不懂，总算有个简单的，实验成功了哈哈。博下来以后用： unit StyleForm...

Delphi磁性窗口

已转至新博客 http://www.raysoftware.cn/?p=46 昨天要用到磁性窗口,就是两个窗口离得近到一个距离就吸附到一起.拖动主窗口,吸附窗体一块运动. 到网上搜了一下,基本没见到可以使用的.有个东东,还是收费的.没办法自己写了一个. 用法很简单,把你的窗口都改成从这个继承即可生效.例如 type   TForm3 = class(TCustomMagnet

带磁性的悬浮窗体

转载请注明出处，本文来自 http://blog.csdn.net/manymore13 带磁性的悬浮窗体，类似于360绿色小人 主要实现的是: 1.悬浮所有窗体之上 2.有吸引力，吸附于屏幕边上 3.有点击效果 下面我就实现上面三点，简单封装了个FloatView  先看下本次Demo的效果图，然后再看代码， 效果图： FloatView代码如下 packag

窗体跟随的DELPHI实现

窗体跟随的DELPHI实现，是在XE1下开发的，如果要在D7下运行，需要做少量修改。

实现磁性窗口，窗体彼此吸附，像千千静听一样，

可以实现多个窗体彼此吸附，主窗口移动子窗口跟随的效果，跟千千静听的一样，

易语言 磁性窗口 模块

易语言磁性窗口模块易语言磁性窗口模块易语言磁性窗口模块

磁性窗体-绝对简单正宗

磁性窗体-绝对简单正宗-一定能满足你初学需要

delphi 仿QQ窗体吸附

delphi 仿QQ窗体吸附 窗体悬浮吸附。可以实现，和QQ一样的功能

易语言吸附外部窗口

易语言吸附外部窗口源码,API_取窗口矩形

易语言模块磁性窗口2.0.rar

易语言模块磁性窗口2.0.rar 易语言模块磁性窗口2.0.rar 易语言模块磁性窗口2.0.rar 易语言模块磁性窗口2.0.rar 易语言模块磁性窗口2.0.rar 易语言模块磁性窗口2.0.rar

易语言模块磁性窗口模块V1.0.rar

易语言模块磁性窗口模块V1.0.rar 易语言模块磁性窗口模块V1.0.rar 易语言模块磁性窗口模块V1.0.rar 易语言模块磁性窗口模块V1.0.rar 易语言模块磁性窗口模块V1.0.rar 易语言模块磁性窗口模块V1.0.rar

Delphi 停靠技术的应用2(窗体之间的相互停靠，引入宿主窗体)

Delphi的可停靠窗体间可以相互停靠，而且花样还很多，可以停靠成并排的，也可以停靠成PageControl样式的，两个可停靠窗体合并后的窗体又可以再和别的可停靠窗体合并，形成树状。下面来介绍这方面的技术。   一、基础知识介绍 1、CM_DOCKCLIENT消息和TC