TScreen 类 使用 Screen.Cursors

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer; {需要个定时器}
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
  
procedure TForm1.FormCreate(Sender: TObject);
//把系统提供的 Cursor 全部加入到 Screen.Cursors 
var
  i: Integer;
begin
  for i := 0 to 22 do
  begin
    Screen.Cursors[i] := TCursor(-i); 
  end;

  {同时设定 Timer1 没 1/4 秒执行一次}
  Timer1.Interval := 250;

{但是很奇怪, 这时的 Screen.CursorCount 竟然是 0? 糊涂了}
end;


procedure TForm1.Timer1Timer(Sender: TObject);
//让窗体的光标随机更换
begin
  Self.Cursor := Screen.Cursors[Random(22)];
end;

end.


//后来的补充 - 如果仅仅要这个效果, 这样就够了:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 250; {设定 Timer1 没 1/4 秒执行一次}
end;

//让窗体的光标随机更换
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Self.Cursor := TCursor(-Random(22));
end;