有没有适用于在窗体标题栏、系统菜单图标以及最小化、最大化和关闭按钮上设置自定义光标的Windows API?
我编写了一个函数,用于为给定的控件加载和设置光标:
type
TFrm_Main = class(TForm)
....
private
procedure SetCursor_For(AControl: TControl; ACursor_FileName: string;
Const ACurIndex: Integer);
...
end;
const
crOpenCursor = 1;
crRotateCursor = 2;
crCursor_Water = 3;
var
Frm_Main: TFrm_Main;
...
procedure TFrm_Main.SetCursor_For(AControl: TControl; ACursor_FileName:
string; const ACurIndex: Integer);
begin
Screen.Cursors[ACurIndex] := Loadcursorfromfile(PWideChar(ACursor_FileName));
AControl.Cursor := ACurIndex;
end;
我正在使用以下方式来处理表单:
SetCursor_For(Frm_Main, 'Cursors\Cursor_Rotate.ani', crRotateCursor);
但是我缺少一种设置特定表单部分光标的方法,比如表单标题栏、系统菜单图标以及最小化、最大化和关闭按钮。是否有一种方法可以为这些表单部分设置光标?