Delphi-Timer定时器使用
来源:互联网 发布:安卓6.0的数据库在哪 编辑:程序博客网 时间:2024/05/20 20:18
Timer定时器是一个非可视化组件,能够定时触发OnTimer事件,完成模拟时钟、系统延时、倒计时等工作。在System选项卡中。
1. Timer的主要属性
(1) Enabled属性:当值为True时,打开定时器,否则关闭定时器。默认值为true。
(2) Interval属性:控制OnTimer事件触发的时间间隔,单位是毫秒。将Interval设置为0,相当于关闭定时器。默认值为1000ms(1秒)。
2. Timer的主要事件
Timer只有一个OnTimer事件。当Timer打开时,每经过Interval属性指定的时间,Timer就会触发OnTimer事件,执行其中的程序。
例:倒计时
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Spin, ExtCtrls, StdCtrls, Mask, Buttons;
type
TForm1 = class(TForm)
Timer1: TTimer;
MaskEdit1: TMaskEdit;
BitBtn1: TBitBtn;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
m,s:integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=s-1;
if s=-1 then
begin
s:=59;
m:=m-1;
if m=-1 then m:=59;
end;
MaskEdit1.Text:=inttostr(m)+':'+inttostr(s);
MaskEdit1.SelLength:=0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
m:=9;s:=10;//初始时间09分10秒
maskedit1.EditMask:='!00:00;1;0';//时间格式,未输入字符用0代
timer1.Interval:=1000;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Enabled:=not timer1.Enabled;//停止倒计时
end;
end.
- Delphi-Timer定时器使用
- Delphi Timer定时器使用
- 使用Timer实现定时器
- timer 定时器的使用
- flex Timer定时器使用
- Timer定时器使用
- LDD3 Timer定时器使用
- c# 使用定时器Timer
- linux 定时器timer使用
- Timer定时器的使用
- preloader定时器timer使用
- Timer定时器使用
- linux Timer 定时器使用
- 定时器Timer的使用
- matlab 使用定时器timer
- Timer 定时器的使用
- timer定时器的使用
- c# 使用定时器Timer
- 图解MyEclipse配置struts+hibernate+spring+FreeMarker
- Beginning
- 项目文件自动备份及删除
- 一个HR人给应届生的面试建议
- About exercise of Delegate
- Delphi-Timer定时器使用
- 日历控件
- VC++开发BHO插件
- javascript 使用面向对象的技术创建高级 Web 应用程序
- joomla案例展示
- 计算机技术
- Oracle Concept 的一些笔记 -- PGA
- 如何执行存储过程以及如何进行调试?
- 索引选择性