【求助】Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的?(89分)

  • 主题发起人 主题发起人 SuKiDelphi
  • 开始时间 开始时间
S

SuKiDelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
【求助】Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的?
(对不起, 已是我的全部分了)
 
怎么发了两次哦,没有搞懂你的问题啊,按ctrl的时候,显示什么指针啊》?
 
鼠标设置-->指针选项
当按 CTRL 键时显示指针的位置

如果上面的打勾(选上),当用户按 CTRL 键时, windows 会画几个圆, 我想在我的工程中显示一下Windows 的“当按 CTRL 键时显示指针的位置”的效果!!!(不用按 CTRL 键)

类似于:

procedure TForm1.Button1Click(Sender: TObject);
var
ScreenDC : HDC;
PointA : TPoint;
S_Canvas : TCanvas;
I, LeltP, BottomP, RightP, TopP : integer;
RectA : PRect;
begin
GetCursorPos(PointA);
ScreenDC:=GetDC(0);
S_Canvas:=TCanvas.Create;

with S_Canvas do
begin
Pen.Color:=clBlue;
Pen.Width:=3;
Handle:=ScreenDC;
Brush.Style:=bsClear;

for I := 8 downto 1 do
begin
LeltP:=PointA.X - I * 15;
TopP:=PointA.Y + I * 15;
RightP:=PointA.X + I * 15;
BottomP:=PointA.Y - I * 15;
Ellipse(LeltP, TopP, RightP, BottomP);
Sleep(100);
end;
//InvalidateRect(S_Canvas.Handle, RectA, True);
end;
DeleteDC(ScreenDC);
end;
 
Sleep(100);
後面添加
Pen.Color:=self.color;
Ellipse(LeltP, TopP, RightP, BottomP);
還要像
 
对,但只能刷新屏幕才能刷新
 
【求助】Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的?
(对不起, 已是我的全部分了)
 

Similar threads

D
回复
0
查看
833
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
680
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部