gpt4 book ai didi

windows - 如何在 Windows 中隐藏光标? (德尔福)

转载 作者:可可西里 更新时间:2023-11-01 12:09:09 25 4
gpt4 key购买 nike

我希望我的程序能像 Team Player 那样工作.多鼠标,多光标,但只有一个焦点。但问题是我无法隐藏默认光标。我只希望它不可见。到目前为止,这仅适用于我的应用程序。

ShowCursor(false);

Screen.Cursor:=crNone;

有没有办法隐藏整个系统的光标(直到我关闭我的应用程序)?


编辑:这不起作用:

procedure myShowCursor(Show :boolean);
var cursor1, cursor2: HCursor;
begin
cursor1 :=CopyIcon(Screen.Cursors[crDefault]);
cursor2 := LoadCursorFromFile('blank\blank.cur');
if Show then
SetSystemCursor(cursor1, OCR_NORMAL)
else
SetSystemCursor(cursor2, OCR_NORMAL);
end;

这有效:(但我不能完全使用它)

procedure myShowCursor;
var cursor1, cursor2: HCursor;
begin
cursor1 :=CopyIcon(Screen.Cursors[crDefault]);
cursor2 := LoadCursorFromFile('blank\blank.cur');

SetSystemCursor(cursor2, OCR_NORMAL);
SetSystemCursor(cursor1, OCR_NORMAL)
end;

已解决:通过 SystemParametersInfo 恢复了系统光标

procedure TForm1.myShowCursor(Show :boolean);
var cursor1: HCursor;
begin
cursor1 := LoadCursorFromFile('blank\blank.cur');
if Show then
SystemParametersInfo(SPI_SETCURSORS,0,0,WM_SETTINGCHANGE or SPIF_UPDATEINIFILE )
else
SetSystemCursor(cursor1, OCR_NORMAL);
end;

最佳答案

先下载一个空白游标,很多地方可以下载,我是从 http://pc.autons.net/stuff/blanks/blank.zip ,extact blank.zip 然后将 blank.cur 复制并粘贴到所需位置(我将其保存到 'c:\blank.cur' 对于这个例子)然后试试这个代码:

var cursor1, cursor2: HCursor;
begin
cursor1 := CopyIcon(Screen.Cursors[crDefault]);
cursor2 := LoadCursorFromFile('c:\blank.cur');
SetSystemCursor(cursor2, OCR_NORMAL);//to hide cursor
Sleep(2000);
SetSystemCursor(cursor1, OCR_NORMAL);//to show cursor again
end;

希望对你有帮助

关于windows - 如何在 Windows 中隐藏光标? (德尔福),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3305708/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com