实现界面跟随鼠标移动的实例

【 tulaoshi.com - 编程语言 】

　　unit Unit_Mouse;

　　interface

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

　　 {=======================================================
　　  DESIGN BY :  花好月圆 / 玉面书生
　　  DATE:        2005-01-30
　　  SITE:        http://www.eastrise.cn/quick2004
　　  BLOG:        http://blog.csdn.net/jackie168
　　  EMAIL:       joe-lu@163.com

　　  文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！
　　=======================================================}

　　type
　　  TForm1 = class(TForm)
　　    PopupMenu1: TPopupMenu;
　　    N1: TMenuItem;
　　     procedure N1Click(Sender: TObject);
　　  private
　　    { Private declarations }
　　  public
　　    { Public declarations }
　　  end;

　　var
　　  Form1: TForm1;
　　   i:integer;  //全局变量
　　implementation

　　{$R *.dfm}
　　//自写函数
　　function proc(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;
　　var
　　evtmsg:teventmsg;
　　begin
　　    evtmsg:=peventmsg(lparam)^;
　　    Form1.Left:=mouse.CursorPos.X+10;
　　    form1.Top:=mouse.CursorPos.Y+10;
　　    if evtmsg.message=WM_RBUTTONUP then
　　    Form1.N1.Click;
　　end;

　　procedure TForm1.N1Click(Sender: TObject);
　　begin
　　    N1.Checked:= not N1.Checked;
　　    if N1.Checked then
　　    i:=setwindowshookex(WH_JOURNALRECORD,proc,hinstance,0)
　　    else
　　    unhookwindowshookex(i);
　　    Top:=(screen.Height-Height)div 2;
　　    Left:=(screen.Width - width-55) div 2;
　　end;

　　end.