演示效果:
添加控件:Form1,Button1,Label1,Label2,Timer1
GetCapture:返回当前捕获鼠标输入的窗口的句柄
SetCapture():通过句柄设置指定窗口来捕获鼠标的输入
ReleaseCapture:释放当前捕获鼠标的窗口的捕获功能
同一时间只能有一个前景窗口可以捕获鼠标。当在控件上按下鼠标时,会自动执行SetCapture(),这时该控件的鼠标移动事件在全屏都会触发,松开鼠标按键时自动执行ReleaseCapture释放捕获
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,