StopWatch

附件

　　http://download.csdn.net/detail/teststudio/6575241

主窗体UNIT

unit MainForm;

interface

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

type
  TFormMain = class(TForm)
    Button2: TButton;
    Button1: TButton;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses Unit2, Unit3;
{$R *.dfm}

var
  frm_StopWatch: TForm2;
  frm_CountDown: TForm3;

procedure ShowStopWatch;
begin
  with frm_StopWatch do
  begin
    Parent := FormMain.Panel1;
    BorderStyle := BsNone;
    Align := alClient;
    Show;
  end;
end;

procedure ShowCountDown;
begin
  with frm_CountDown do
  begin
    Parent := FormMain.Panel1;
    BorderStyle := BsNone;
    Align := alClient;
    Show;
  end;
end;

procedure SetButtonEnabled1;
begin
  FormMain.Caption:='秒表';
  FormMain.Button1.Enabled := False;
  FormMain.Button2.Enabled := True;
end;

procedure SetButtonEnabled2;
begin
  FormMain.Caption:='倒计时';
  FormMain.Button1.Enabled := True;
  FormMain.Button2.Enabled := False;
end;

procedure TFormMain.Button1Click(Sender: TObject);
begin
  // 秒表
  SetButtonEnabled1;
  ShowStopWatch;
  frm_CountDown.Hide;
end;

procedure TFormMain.Button2Click(Sender: TObject);
begin
  SetButtonEnabled2;
  ShowCountDown;
  frm_StopWatch.Hide;

end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  frm_StopWatch := TForm2.Create(self);
  frm_CountDown := TForm3.Create(self);
  ShowStopWatch;
end;

end.

主窗体FRM

object FormMain: TFormMain
  Left =
  Top =
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = ##
  ClientHeight =
  ClientWidth =
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch =
  TextHeight =
  object Button2: TButton
    Left =
    Top =
    Width =
    Height =
    Caption = ###
    TabOrder =
    OnClick = Button2Click
  end
  object Button1: TButton
    Left =
    Top =
    Width =
    Height =
    Caption = ##
    Enabled = False
    TabOrder =
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left =
    Top =
    Width =
    Height =
    Caption = 'Panel1'
    TabOrder =
  end
end

主窗体FRM

//秒表Unit2

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    ListView1: TListView;
    Label2: TLabel;
    Timer2: TTimer;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
    procedure AddListViewItem;
    procedure CleanLabel2;
    procedure tglForm;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Button1.Caption = '开始' then
  begin
    Button1.Caption := '停止';
    Button2.Caption := '计次';
    Timer1.Enabled := True;
    Timer2.Enabled := True;
    // Button1.Color:=clRed;
  end
  else
  begin
    Button1.Caption := '开始';
    Button2.Caption := '复位';
    Timer1.Enabled := False;
    Timer2.Enabled := False;
   // Button1.Color:=clGreen;
  end;
end;

procedure TForm2.AddListViewItem;
var
  i: Integer;
begin

  i := ListView1.Items.Count + ;
  with ListView1.Items.Add do
  begin
    Caption := IntToStr(i);
    SubItems.Add(Label2.Caption);
  end;
  SendMessage(ListView1.Handle, WM_VSCROLL, SB_BOTTOM, );
end;

var
  h: Integer = ;
  m: Integer = ;
  s: Integer = ;

  h1: Integer = ;
  m1: Integer = ;
  s1: Integer = ;

procedure TForm2.CleanLabel2;
begin
  if Button2.Caption = '计次' then
  begin
    h := ;
    m := ;
    s := ;
    Label2.Caption := Format('%.2d:%.2d:%.2d', [h, m, s]);
  end;

  if Button2.Caption = '复位' then
  begin
    h := ;
    m := ;
    s := ;

    h1 := ;
    m1 := ;
    s1 := ;
    Label1.Caption := Format('%.2d:%.2d:%.2d', [h1, m1, s1]);
    Label2.Caption := Format('%.2d:%.2d:%.2d', [h, m, s]);
    ListView1.Clear;
  end;

end;

procedure TForm2.tglForm;
begin
  if Height =  then
    Height :=
  else
    Height := ;
end;

procedure TForm2.FormClick(Sender: TObject);
begin
  tglForm;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  AddListViewItem;
  CleanLabel2;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  inc(s1);
  if s1 >=  then
  begin
    inc(m1);
    s1 := ;
  end;
  if m1 >=  then
  begin
    inc(h1);
    m1 := ;
  end;
  Label1.Caption := Format('%.2d:%.2d:%.2d', [h1, m1, s1]);
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
  inc(s);
  if s >=  then
  begin
    inc(m);
    s := ;
  end;
  if m >=  then
  begin
    inc(h);
    m := ;
  end;
  Label2.Caption := Format('%.2d:%.2d:%.2d', [h, m, s]);

end;

end.

object Form2: TForm2
  Left =
  Top =
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = ##
  ClientHeight =
  ClientWidth =
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clNone
  Font.Height = -
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClick = FormClick
  DesignSize = (

    )
  PixelsPerInch =
  TextHeight =
  object Label2: TLabel
    Left =
    Top =
    Width =
    Height =
    AutoSize = False
    Caption = '00:00:00'
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label1: TLabel
    Left =
    Top =
    Width =
    Height =
    AutoSize = False
    Caption = '00:00:00'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNone
    Font.Height = -
    Font.Name = ####
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ListView1: TListView
    Left =
    Top =
    Width =
    Height =
    Anchors = [akLeft, akTop, akRight, akBottom]
    BorderStyle = bsNone
    Color = clCream
    Columns = <
      item
        Caption = ##
        Width =
      end
      item
        Caption = ##
        Width =
      end>
    ColumnClick = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clNone
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    FlatScrollBars = True
    HideSelection = False
    MultiSelect = True
    RowSelect = True
    ParentFont = False
    TabOrder =
    ViewStyle = vsReport
  end
  object Button1: TButton
    Left =
    Top =
    Width =
    Height =
    Caption = ##
    Default = True
    TabOrder =
    OnClick = Button1Click
  end
  object Button2: TButton
    Left =
    Top =
    Width =
    Height =
    Cancel = True
    Caption = ##
    TabOrder =
    OnClick = Button2Click
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left =
    Top =
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left =
    Top =
  end
end

Unit2.DFM

//倒计时单元文件

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    Timer2: TTimer;
    ComboBox1: TComboBox;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1CloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses MmSystem;
{$R SOUND.RES}
{$R *.dfm}

var
  h1: Integer = ;
  m1: Integer = ;
  s1: Integer = ;
  SoundID: PChar = 'RING3';

procedure TForm3.Button1Click(Sender: TObject);
begin
  h1 := SpinEdit1.Value;
  m1 := SpinEdit2.Value;
  s1 := SpinEdit3.Value;

  if Button1.Caption = '开始' then
  begin
    Button1.Caption := '停止';
    Timer1.Enabled := True;
    panel1.Visible:=False;
    label1.Visible:=True;
  end
  else
  begin
    Button1.Caption := '开始';
    Timer1.Enabled := false;
    PlaySound(, , );
    panel1.Visible:=True;
    label1.Visible:=False;
  end;

end;

procedure TForm3.ComboBox1CloseUp(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    :
      SoundID := 'RING1';
    :
      SoundID := 'RING2';
    :
      SoundID := 'RING3';
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  ComboBox1.ItemIndex := ;
  label1.Left:=;
  Label1.Top:=;
  label1.Visible:=False;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin

  if (h1 <= ) and (m1 <= ) and (s1 <= ) then
  begin
    Timer1.Enabled := false;
    Button1.Caption := '结束';
    label1.Caption:='00:00:00';
    PlaySound(SoundID, , snd_ASync or snd_Loop or snd_Resource );
    exit;
  end;

  Dec(s1);
  if s1 <=  then
  begin
    if (m1 > ) or (h1 > ) then
    begin
      Dec(m1);
      s1 := ;
    end;
  end;
  if m1 <  then
  begin
    if h1 >  then
    begin
      Dec(h1);
      m1 := ;
    end;
  end;

  Label1.Caption := Format('%.2d:%.2d:%.2d', [h1, m1, s1]);
end;

end.

object Form3: TForm3
  Left =
  Top =
  Caption = ###
  ClientHeight =
  ClientWidth =
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch =
  TextHeight =
  object Label1: TLabel
    Left =
    Top =
    Width =
    Height =
    Alignment = taCenter
    AutoSize = False
    Caption = '00:00:00'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNone
    Font.Height = -
    Font.Name = ####
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Button1: TButton
    Left =
    Top =
    Width =
    Height =
    Caption = ##
    Default = True
    TabOrder =
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left =
    Top =
    Width =
    Height =
    BevelOuter = bvNone
    TabOrder =
    object SpinEdit1: TSpinEdit
      Left =
      Top =
      Width =
      Height =
      MaxValue =
      MinValue =
      TabOrder =
      Value =
    end
    object SpinEdit2: TSpinEdit
      Left =
      Top =
      Width =
      Height =
      MaxValue =
      MinValue =
      TabOrder =
      Value =
    end
    object SpinEdit3: TSpinEdit
      Left =
      Top =
      Width =
      Height =
      MaxValue =
      MinValue =
      TabOrder =
      Value =
    end
    object ComboBox1: TComboBox
      Left =
      Top =
      Width =
      Height =
      Style = csDropDownList
      ImeName = ##' - QQ'#####
      TabOrder =
      OnCloseUp = ComboBox1CloseUp
      Items.Strings = (
        'RING1'
        'RING2'
        'RING3')
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left =
    Top =
  end
  object Timer2: TTimer
    Enabled = False
    Left =
    Top =
  end
end

倒计时窗体文件