TScreen 类 - 使用 Screen.Cursors

最新推荐文章于 2023-02-18 10:45:50 发布

weixin_30807779

最新推荐文章于 2023-02-18 10:45:50 发布

阅读量79

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2008/01/22/1048858.html

本文介绍了一个使用Delphi实现的简单程序，该程序能够每1/4秒随机更换窗口光标。通过设置定时器并结合随机数生成器，实现了光标的动态变化效果。

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;

转载于:https://www.cnblogs.com/del/archive/2008/01/22/1048858.html