-
-
[求助]不死心, 再问:"Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的？"
-
发表于: 2009-12-9 05:25
-
【求助】Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的？
我想在我的工程中显示一下Windows 的“当按 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(0, nil, True);
end;
DeleteDC(ScreenDC);
end;
我想在我的工程中显示一下Windows 的“当按 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(0, nil, True);
end;
DeleteDC(ScreenDC);
end;
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
