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

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.

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有