“磁性”窗口新篇

原创 2004年06月15日 15:31:00

file://创建军于2004.6.15
file://作者:透明墨豆(昵称)
file://QQ:33125083
file://说明:本程序是从《“磁性”窗口》--- wujian2的文章修改的,原因是原文章不全和
file://有错误,并且觉得有不完善的地方,如不能分辨出两窗口是否在同一个区域,不能
file://停靠屏幕边缘等。但此程序还有不足之处,如窗口Form不能跟随Winamp的窗口一起移动
file://希望大家多多指教,这是我第一篇文章。
file://详细的说明请看原文

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Magnetize(var nl,nt:integer);
    procedure Edgetize(var nL,nT:integer);//定义接近屏幕边缘时的过程
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const MagneticForce:integer=20;

var
  Form1: TForm1;      file://把主窗口Form1适当改小些,并将BorderStyle设为bsNone
  LastX,LastY:integer;
  WinampRect:TRect;
  HWND_Winamp:HWND;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;   file://关闭窗口
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const classname='Winamp v1.x';  file://如果改成ClassName=‘TAppBuilder’,
                                //  你就会发现连Delphi也有引力啦
begin
  LastX:=X;     file://保存指针坐标
  LastY:=Y;
  HWND_Winamp:=FindWindow(classname,nil);  file://获取Winamp的窗口句柄
  if HWND_Winamp>0 then
    getwindowrect(HWND_Winamp,WinampRect);  file://获取Winamp窗口的区域
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var nLeft,nTop:integer;
begin
  if HiWord(GetAsyncKeyState(VK_LBUTTON)) >0 then
    begin
      nLeft:=Left+X-LastX;     file://计算窗口位置
      nTop:=Top+Y-LastY;
      if HWND_Winamp>0 then     file://这里进行了少许修改
        Magnetize(nLeft,nTop)     file://当窗口不存在时也可以进行屏幕边缘停靠
      else Edgetize(nLeft,nTop);
      SetBounds(nLeft,nTop,width,height);//设定窗口位置
    end;
end;
file://=============以上部分为抄录别人,下面为自已之写的======================/////
procedure TForm1.Magnetize(var nL,nT:integer);
  var
    B_LR,B_TB,V_L,V_R,V_T,V_B:boolean; file://定义中间变量,B_LR,B_TB用来分别标识窗口
    file://是否在要靠近的区域内,V_L,V_R,V_T,V_B分别用来标识窗口是否靠近
    nR,nB,tL,tR,tT,tB:integer;//nR,nB分别用来保存Form1的右边位置和下边位置
  begin
    nR:=nL+Width; file://计算Form1的Right,Bottom
    nB:=nT+Height;
    file://判断窗口是否在目标窗口的范围内(不知大家有没有更简单的算法呢)
    if Width<=(WinampRect.Right-WinampRect.Left) then   file://如果Form的宽少于目标Form
       B_LR:=((nL>=WinampRect.Left)and(nL<=WinampRect.Right))or((nR>=WinampRect.Left)
       and(nR<=WinampRect.Right))
       else B_LR:=((nL<=WinampRect.Right)and(nR>=WinampRect.Right))or((nL<=WinampRect.Left)
       and(nR>=WinampRect.Left));
    if Height<=(WinampRect.Bottom-WinampRect.Top) then  file://如果Form的高少于目标Form
       B_TB:=((nT>=WinampRect.Top)and(nT<=WinampRect.Bottom))or((nB>=WinampRect.Top)
       and(nB<=WinampRect.Bottom))
    else B_TB:=((nT<=WinampRect.Top)and(nB>=WinampRect.Top))or((nT<=WinampRect.Bottom)
       and(nB>=WinampRect.Bottom));
    //判断两窗口否足够接近
    //计算边框的距离绝对值
    tL:=abs(WinampRect.Right-nL);
    tR:=abs(WinampRect.Left-nR);
    tT:=abs(WinampRect.Bottom-nT);
    tB:=abs(WinampRect.Top-nB);
    V_L:=tL<MagneticForce;
    V_R:=tR<MagneticForce;
    V_T:=tT<MagneticForce;
    V_B:=tB<MagneticForce;
    //如果足够接近就修改坐标
    if B_TB then
      if V_L then
             nL:=WinampRect.Right
        else if V_R then nL:=WinampRect.Left-Width;
    if B_LR then
      if V_T then nT:=WinampRect.Bottom
        else if V_B then nT:=WinampRect.Top-Height;
   //接近屏幕边缘时实现停靠
    if (not V_L)and(not V_R)and(not V_T)and(not V_B) then Edgetize(nL,nT);
   end;
  //定义接近屏幕边缘时的过程
  procedure TForm1.Edgetize(var nL,nT:integer);
    var nB,nR:integer;
    begin
      nR:=nL+Width; file://计算Form1的Right,Bottom
      nB:=nT+Height;   file://Screen是用来获取屏幕分辨率的
      if nT<=MagneticForce then nT:=0
      else if abs(nB-Screen.Height)<=MagneticForce then nT:=Screen.Height-Height;
    if nL<=MagneticForce then nL:=0
      else if abs(nR-Screen.Width)<=MagneticForce then nL:=Screen.Width-Width;
    end;

end.

“磁性” 窗口

{通常,我们拖动对话框窗口的标题栏来移动窗口,但有时候,我们想通过鼠标在客户区上拖动来移动窗口。拖动对话框窗口的标题栏来移动窗口的方案是,处理鼠标消息WM_LBUTTONDOWN和WM_LBUTTON...
  • jackalfly
  • jackalfly
  • 2012年04月05日 13:33
  • 1406

C# 实现磁性窗口(附源码和程序)

实现并封装了磁性窗口类MagneticMagnager,实现磁性窗口仅仅需要调用一行代码: MagneticMagnager test2 = new MagneticMagnager(this, f...
  • mngzilin
  • mngzilin
  • 2010年05月01日 21:56
  • 5936

在bcb里实现像Winamp那样具有吸附效果的磁性窗口

       相信大家都用过Winamp,一定会对她那种具有吸附效果的窗口感到很惊喜吧。其实要实现这样的效果并不难,下面我就用bcb做出这样的效果。为了将问题简化,窗口只在屏幕顶端产生吸附效果。   ...
  • hhdsq
  • hhdsq
  • 2002年11月15日 14:57
  • 816

[Delphi]制作类似WinAmp一样的“磁性”窗口【转载/收藏】

制作类似WinAmp一样的“磁性”窗口矢名摘 要:Winamp的用户都知道,Winamp的播放列表或均衡器在被移动的时候,仿佛会受到一股磁力,每当靠近主窗口时就一下子被“吸附”过去,自动沿边对齐。关键...
  • shines
  • shines
  • 2001年08月06日 19:39
  • 1379

“磁性”窗口

“磁性”窗口   Winamp的用户都知道,Winamp的播放列表或均衡器在被移动的时候,仿佛会受到一股磁力,每当靠近主窗口时就一下子被“吸附”过去,自动沿边对齐。我想让我的Winamp插件也具备这种...
  • wujian2
  • wujian2
  • 2003年06月20日 16:07
  • 337

C#实现磁性窗体(吸附、剥离、移动)

最近做东西需要用到这个,网上找了一下有不少人实现了,比如这位兄弟 http://blog.csdn.net/mngzilin/article/details/5549119 但是有个问题...
  • UnSkyToo
  • UnSkyToo
  • 2015年08月22日 16:25
  • 2601

使窗口移动时具有停靠吸附功能

使窗口移动时具有停靠功能示例代码下载:窗口移动停靠.zip (请不要直接使用迅雷下载)一.前言:封装了一个类,可以很简单的使窗口移动时具有自动吸附停靠在屏幕边缘上的功能。二.使用方法:0.添加Move...
  • jacky_qiu
  • jacky_qiu
  • 2010年11月05日 16:03
  • 943

磁性窗口制作

private    { Private declarations }    procedure WMWINDOWPOSCHANGING(var msg:TWMWindowPosChanging);m...
  • flashrhx2007
  • flashrhx2007
  • 2010年01月29日 14:24
  • 288

磁性吸附

磁性吸附 #div1{ width:100px; height:100px; background:red; position:absolute; } img{...
  • Zhang_XiaoHeng
  • Zhang_XiaoHeng
  • 2017年05月26日 14:55
  • 191

Delphi磁性窗口

已转至新博客 http://www.raysoftware.cn/?p=46 昨天要用到磁性窗口,就是两个窗口离得近到一个距离就吸附到一起.拖动主窗口,吸附窗体一块运动. 到网上搜了一...
  • wr960204
  • wr960204
  • 2011年06月15日 16:33
  • 3139
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:“磁性”窗口新篇
举报原因:
原因补充:

(最多只允许输入30个字)