小编Bra*_*saw的帖子

是否有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);

但我错过了为特定表单部分设置光标的方法,如表单标题栏,系统菜单图标和最小化,最大化和关闭按钮.有没有办法为这些表单部分设置游标？