HanDs
管理员

[Delphi文章] 鼠标编程应用 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

当鼠标在一个控件上停留一定时间就发一个Click

var
OldX, OldY : integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
H : HWND;
begin
if (Mouse.CursorPos.X = OldX) and (Mouse.CursorPos.Y = OldY) then
    begin
    H := WindowFromPoint(Mouse.CursorPos);
    if H<>0 then
      begin
      SendMessage(H, WM_LButtonDown, 0, 0);
      SendMessage(H, WM_LButtonUp, 0, 0);
      end;
    end
else
    begin
    OldX := Mouse.CursorPos.X;
    OldY := Mouse.CursorPos.Y;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 1000; //停留此时间后发消息
Timer1.Enabled := True;
OldX := Mouse.CursorPos.X;
OldY := Mouse.CursorPos.Y;
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
鼠标 编程 应用
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复