文档章节

TScreen 类 - 使用 Screen.Cursors

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 197
阅读 3
收藏 0
点赞 0
评论 0
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;

本文转载自:http://www.cnblogs.com/del/archive/2008/01/22/1048858.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
GO 语言 UI 组件库 - govcl

由于现有第三方的Go UI库不是太大就是用的不习惯,或者组件太少。就萌生了自己写一个UI库的想法Delphi(Lazarus)有些许多优秀的VCL(LCL)组件,不拿来使用太可惜了。所以就索性做了一套。目前支...

不在乎y
2017/10/10
6.9K
17
delphi轻松实现输入法编程

打开delphi 2010窗口进行编程,编程时,一般把输入西文或以西文为主的元件的ImeMode属性设为缺省值;而把输入中文或以中文为主的元件的ImeMode属性设为ImOpen;ImeName属性值则在程序运行时由...

crossmix
2015/05/01
0
0
delphi资源文件制作及使用详解

delphi资源文件制作及使用详解 摘自:http://www.ej38.com/showinfo/delphi-131567.html 一、引子: 现在的Windows应用程序几乎都使用图标、图片、光标、声音等,我们称它们为资源(Resourc...

vga
2015/03/03
0
0
关于文件操作集锦 delphi

关于文件操作集锦 取得该快捷方式的指向EXE 关键词:快捷方式 LNK unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt......

vga
2014/04/23
0
0
深入理解ES6--6.JS的类

主要知识点:类声明、类表达式、类的重要要点以及类继承 1. 类的声明 基本的类声明 类声明以关键字开始,其后是类的名称;类中的方法就像是对象字面量中的方法简写,并且方法之间不需要使用逗...

你听___
05/02
0
0
自定义类加载器从网络上加载java类,通过反射和接口的使用问题

如何实现自定义类加载器加载从服务器下载下来的类并使用,在找资料时看到这样一句话:在通过NetworkClassLoader加载了某个版本的类之后,一般有两种做法来使用它。第一种做法是使用Java反射A...

炁元
2016/01/26
780
2
《深入理解ES6》笔记—— JavaScript中的类class(9)

ES5中的近类结构 ES5以及之前的版本,没有类的概念,但是聪明的JavaScript开发者,为了实现面向对象,创建了特殊的近类结构。 ES5中创建类的方法:新建一个构造函数,定义一个方法并且赋值给...

zdhsoft
2017/07/31
0
0
Ruby中模块导入 以及include和extend的区别

1 模块是类Class的父类。 2 模块是不可以被new的,也就是说模块不能被实例化,所以模块是没有实例方法的。 3 模块可以直接调用自己的类方法和自己的常量 4 如果一个类需要使用模块的时候可以...

穿山
2017/11/08
0
0
Python: 陌生的 metaclass

元类 Python 中的元类(metaclass)是一个深度魔法,平时我们可能比较少接触到元类,本文将通过一些简单的例子来理解这个魔法。 类也是对象 在 Python 中,一切皆对象。字符串,列表,字典,...

funhacks
2017/11/29
0
0
类加载器与Web容器

目录 Tomcat中的类加载机制 总结 在关于类加载器中已经介绍了Jvm的类加载机制,然而对于运行在Java EE容器中的Web应用来说,类加载器的实现方式与一般的Java应用有所不同。不同的Web容器的实...

张辉原
2017/06/15
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

rabbitmq学习记录(三)

工作队列:一个生产者,多个消费者,生产者直接将消息发送到rabbitmq的队列之中 默认采用的是轮询分配:即不管消费者处理信息的效率,队列给所有消费者轮流发送一条信息,直至消息发送完毕 ...

人觉非常君
20分钟前
0
0
Java 之 反射

反射,剖析 Java类 中的 各个组成部分,映射成 一个个 Java对象,多用于 框架和组件,写出复用性高的通用程序。 测试类代码如下: class Person { private String name; public St...

绝世武神
24分钟前
0
0
华为nova3超级慢动作酷玩抖音,没有办法我就是这么强大

华为nova3超级慢动作酷玩抖音,没有办法我就是这么强大!华为nova3超级慢动作酷玩抖音,没有办法我就是这么强大! 在华为最新发布的nova 3手机上,抖音通过华为himedia SDK集成了60fps、超级...

华为终端开放实验室
29分钟前
0
0
多 SSH Key 实现同一台服务器部署多 Git 仓库

本文以以下需求为背景,介绍详细的做法: 需在同一台服务器同时部署两个不同的 Github 仓库(对 Bitbucket 等 git 服务同样适用) root 用户可在远程登录 SSH 后附上预期的 SSH Key 进行 gi...

yeahlife
32分钟前
0
0
003. es6数值的扩展

一、普通扩展 Number 方法,将字符串、数值转为十进制 : Number('0b111') Number.isFinite() 用来检查一个数值是否为有限的:Number.isFinite(15) Number.isNan() 用来检查一个值是否为NaN N...

秋季长青
46分钟前
0
0
C语言数组和指针的语法糖

对于C语言,我可以这样秀:比如当创建一个数组arr[n]之后,一般我们去遍历数组的时候是for (int i = 0; i < n; i++) { a[i]; }但是我知道下表访问符[]是个语法糖,也就是说a[i]在编译器看来是...

ustbgaofan
54分钟前
0
0
Call to undefined function bcmath()的解决方法

乐意黎的ECS主机环境,Centos7.2 + PHP7 由于使用了bcdiv()函数,运行时总在抛错。 Fatal error: Call to undefined function bcmath() in /usr/loca/apache/htdocs/... on line 4 一查得知:......

dragon_tech
59分钟前
0
0
css优先级

..

architect刘源源
今天
0
0
【转】Twitter的分布式自增ID算法snowflake

结构 snowflake的结构如下(每部分用-分开): 0 - 0000000000 0000000000 0000000000 0000000000 0 - 00000 - 00000 - 000000000000 第一位为未使用,接下来的41位为毫秒级时间(41位的长度可以...

talen
今天
0
0
hive支持行级修改

Hive从0.14版本开始支持事务和行级更新,但缺省是不支持的,需要一些附加的配置。要想支持行级insert、update、delete,需要配置Hive支持事务。 一、Hive具有ACID语义事务的使用场景 1. 流式...

hblt-j
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部