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.
没有相关教程
|