Question

如何使用Delphi7里timer控件？

①button1的标题是 开始按下button1后开始计时button1的标题改成 停止再次按下button1后停止计时button1的标题改成 开始计时始终显示在edit1.text--------------------------------②按下button2,每隔1秒钟edit2.text里的数+1-------------------------------------------------------给个代码,我好照着研究下 如果懒得给代码,那就给个关于D7里timer控件的基础教程我实在搜不到了 刚学,照顾下

Answer 1

一、 发起封面完成思绪 为了完成发起封面的效果，我们要在delphi中运用两个窗体。一个窗体A用于显现顺序的发起封面，而另一个为顺序的主窗体B包括了您所想象的种种功用。窗体A是一个非规则窗口，其标题栏及最大化、最小化按钮和边框都被屏蔽掉了，其用一个Image控件装载一个图片文件来显现顺序的封面，并用一个timer控件完成该窗口的定时封锁。为了便利顺序运用者快速跳过发起封面直接进入顺序主窗体，我们还要设置一个click事情来封锁窗体A并调用主窗体B。 二、操作详细方法 1、 请先在delphi6。0中创立一个运用顺序及主窗体。选择主菜单下的File。New。Application命令，这个操作将创立一个运用顺序和一个主窗体。随后将主窗体的name属性由form1改为Ma。rm，主窗体的其他状况在此不详述，请依据您所想象的运用顺序功用自行操作。 2、 制造顺序发起封面的图片。图片的大小您应当细细考虑一下，为此笔者还特地将foxmail4。0的发起封面用抓图软件抓了下去，在绘图软件中细细丈量了一下。其大小为380×240，笔者觉得foxmail这款主流软件在想象发起封面的大小时肯定停止过周全的考虑。故建议您也采用这个尺寸，当然您也可以自行设置发起封面的大小。（请考虑当今盛行的屏幕主区分率是800×600）在制造发起封面时要考虑您所编制软件的功用及称号，软件的封面是给人的第一印象。假设您的软件是要在市场上推行的话，建议您找专业的美工想象师来想象一番为好！笔者在此偷懒了一番，随意去因特网抓了一幅景色画用paint shop pro减少了图片的尺寸便做为了封面。另外图片的格式最好为gif或许jpg格式，这样在编译进去的顺序不致于太肥。 3、 增加封面窗体，请点击delphi工具栏中的new form按钮。创立一个新窗体，并在其上增加一个 Image控件，并且选中Image控件并在属性框中找到picture属性点左边的小按钮。在弹出的图像编辑窗口中，单击load键载入您所制造的封面。然后将Image控件的Autosize属性设为True，这样Image控件便能自动顺应图片的大小了。为了完成发起封面的定时封锁，再增加一个Timer控件，将其enable属性设为true以触发ontimer事情，Interval属性设为5000(即5秒)，这两项属性操作便是在窗体显现5秒后触发ontimer事情来封锁窗口。 图一 4、 设置封面窗体属性使之契合发起封面恳求。请修正下列封面窗体属性： Position = PoscreenCenter 。。运转时居于屏幕中央 Autosize = true 。。自动顺应Image控件，使发起图片完整显现 BorderStyle = bsnone 。。窗口无标题栏及最大化、最小化及封锁按钮和边框 Name = splashform 三、 顺序代码解析 选择主菜单下的Project。View Scource 命令，翻开这个项手段项目文件。依据下列代码停止修正。 program Project2; uses Forms,Controls, Unit1 in 'Unit1。pas' {MainForm}, Unit2 in 'Unit2。pas' {SplashForm}; {$R *。res} begin Application。Initialize; SplashForm :=TSplashForm。Create(Application); 。。创立splash窗体 SplashForm。ShowModal; 。。以形式对话框的方式显现splash窗体 if (SplashForm。ModalResult = mrOK) then 。。假设定经常间到或单击了窗体上的图形 begin Application。Title := '测试Splash窗体'; 。。设置运用顺序的标题 Application。CreateForm(TMainForm, MainForm); 。。自动方式创立的主窗体 SplashForm。Hide; 。。将发起封面窗体隐藏 SplashForm。Release; 。。将发起封面窗体肃清 Application。Run; end; end。 随后在splash窗体上编写下列事情代码 procedure TSplashForm。Timer1Timer(Sender: TObject); begin SplashForm。ModalResult:= mrOK; 。。定经常辰到后的事情处置顺序 end; procedure TSplashForm。Image1Click(Sender: TObject); begin SplashForm。ModalResult:= mrOK; 。。单击splash窗体上图像的事情处置顺序 end; 2011-10-24 5:53:18

Answer 2

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Timer1: TTimer;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = '开始' then
begin
Button1.Caption := '停止' ;
Timer1.Enabled := True ;

end
else begin
Button1.Caption := '开始' ;
Timer1.Enabled := False ;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := FormatDateTime('yyyy-MM-dd hh:MM:ss',Now ) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer2.Enabled := True ;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Edit2.Text := IntToStr(StrToInt(edit2.Text ) + 1) ;
end;

end.

-----------------------------------------
edit1.text 初始值 为空；
edit2.text 初始值 为0；
Time1.interval 初始值 为1000(即1000毫秒=1秒）；
Time2.interval 初始值 为1000(即1000毫秒=1秒）；

Answer 3

参照我给人回答的
http://zhidao.baidu.com/question/314217491.html