有關於計時的問題

發文回覆瀏覽次數：815

推到 Plurk!

推到 Facebook!

尚未結案

lavender1336520
一般會員

發表：2
回覆：0
積分：0
註冊：2005-06-13

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-06-15 19:34:36

IP:219.71.xxx.xxx 未訂閱

我想做一個像馬錶的計時器用label顯示，利用button控制但是不知從何下手?(我是個新到不行的新手) 不知各位高手能否給我點建議

supman
尊榮會員

發表：29
回覆：770
積分：924
註冊：2002-04-22

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-06-15 20:04:55

IP:219.68.xxx.xxx 未訂閱

您好：請參考以下程式：

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    uses DateUtils;    {$R *.dfm}    var
 Time:TDateTime;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
Time:=IncSecond(Time,1);
Label1.Caption:=DateTimeToStr(Time);
end;    procedure TForm1.FormActivate(Sender: TObject);
begin
Time:=Now;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
end;    end.

新手不會寫請先搜尋站內資料，相信有一卡車讓您參考。您下面這主題還有問題嗎？沒有問題請去結案或繼續討論。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=73205 發表人 - supman 於 2005/06/15 20:06:17

jest0024
高階會員

發表：11
回覆：310
積分：224
註冊：2002-11-24

發送簡訊給我

#3 引用回覆回覆

發表時間：2005-06-15 22:38:17

IP:59.104.xxx.xxx 未訂閱

uses mmsystem;    procedure TForm1.Button1Click(Sender: TObject);
var
  fTime:DWORD;
  //fTime:TTime;
begin
  if Button1.Caption='Stop' then Button1.Caption:='Start'
  else begin
    Button1.Caption:='Stop';
    fTime:=TimeGetTime;
    //fTime:=Now;
    While(Button1.Caption='Stop')and(Not Application.Terminated)do begin
      Label1.Caption:=Format('%0.2f',[(TimeGetTime-fTime)/1000]);
      //Label1.Caption:=FormatDateTime('nn:ss:zzz',Now-fTime);
      Sleep(10);
      Application.ProcessMessages;
    end;
  end;
end;

發表人 - jest0024 於 2005/06/15 22:45:22

系統時間：2024-06-02 0:48:36

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！