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 = 0 Top = 0 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = #31186#34920 ClientHeight = 282 ClientWidth = 243 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Button2: TButton Left = 120 Top = 255 Width = 121 Height = 25 Caption = #20498#35745#26102 TabOrder = 0 OnClick = Button2Click end object Button1: TButton Left = 2 Top = 255 Width = 119 Height = 25 Caption = #31186#34920 Enabled = False TabOrder = 1 OnClick = Button1Click end object Panel1: TPanel Left = 2 Top = 2 Width = 239 Height = 249 Caption = 'Panel1' TabOrder = 2 end end
//秒表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 + 1; with ListView1.Items.Add do begin Caption := IntToStr(i); SubItems.Add(Label2.Caption); end; SendMessage(ListView1.Handle, WM_VSCROLL, SB_BOTTOM, 0); end; var h: Integer = 0; m: Integer = 0; s: Integer = 0; h1: Integer = 0; m1: Integer = 0; s1: Integer = 0; procedure TForm2.CleanLabel2; begin if Button2.Caption = '计次' then begin h := 0; m := 0; s := 0; Label2.Caption := Format('%.2d:%.2d:%.2d', [h, m, s]); end; if Button2.Caption = '复位' then begin h := 0; m := 0; s := 0; h1 := 0; m1 := 0; s1 := 0; 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 = 341 then Height := 122 else Height := 341; 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 >= 60 then begin inc(m1); s1 := 0; end; if m1 >= 60 then begin inc(h1); m1 := 0; end; Label1.Caption := Format('%.2d:%.2d:%.2d', [h1, m1, s1]); end; procedure TForm2.Timer2Timer(Sender: TObject); begin inc(s); if s >= 60 then begin inc(m); s := 0; end; if m >= 60 then begin inc(h); m := 0; end; Label2.Caption := Format('%.2d:%.2d:%.2d', [h, m, s]); end; end.
object Form2: TForm2 Left = 0 Top = 0 BorderIcons = [biSystemMenu, biMinimize] Caption = #31186#34920 ClientHeight = 204 ClientWidth = 242 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clNone Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnClick = FormClick DesignSize = ( 242 204) PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 168 Top = 24 Width = 62 Height = 19 AutoSize = False Caption = '00:00:00' Color = clBackground Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False end object Label1: TLabel Left = 8 Top = 10 Width = 145 Height = 33 AutoSize = False Caption = '00:00:00' Font.Charset = ANSI_CHARSET Font.Color = clNone Font.Height = -29 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False end object ListView1: TListView Left = 8 Top = 80 Width = 226 Height = 116 Anchors = [akLeft, akTop, akRight, akBottom] BorderStyle = bsNone Color = clCream Columns = < item Caption = #35745#27425 Width = 40 end item Caption = #26102#38388 Width = 140 end> ColumnClick = False Font.Charset = ANSI_CHARSET Font.Color = clNone Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] FlatScrollBars = True HideSelection = False MultiSelect = True RowSelect = True ParentFont = False TabOrder = 0 ViewStyle = vsReport end object Button1: TButton Left = 8 Top = 49 Width = 105 Height = 25 Caption = #24320#22987 Default = True TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 119 Top = 49 Width = 111 Height = 25 Cancel = True Caption = #22797#20301 TabOrder = 2 OnClick = Button2Click end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 88 Top = 112 end object Timer2: TTimer Enabled = False OnTimer = Timer2Timer Left = 136 Top = 112 end end
//倒计时单元文件
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 = 0; m1: Integer = 0; s1: Integer = 0; 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(0, 0, 0); panel1.Visible:=True; label1.Visible:=False; end; end; procedure TForm3.ComboBox1CloseUp(Sender: TObject); begin case ComboBox1.ItemIndex of 0: SoundID := 'RING1'; 1: SoundID := 'RING2'; 2: SoundID := 'RING3'; end; end; procedure TForm3.FormCreate(Sender: TObject); begin ComboBox1.ItemIndex := 2; label1.Left:=8; Label1.Top:=20; label1.Visible:=False; end; procedure TForm3.Timer1Timer(Sender: TObject); begin if (h1 <= 0) and (m1 <= 0) and (s1 <= 0) then begin Timer1.Enabled := false; Button1.Caption := '结束'; label1.Caption:='00:00:00'; PlaySound(SoundID, 0, snd_ASync or snd_Loop or snd_Resource ); exit; end; Dec(s1); if s1 <= 0 then begin if (m1 > 0) or (h1 > 0) then begin Dec(m1); s1 := 60; end; end; if m1 < 0 then begin if h1 > 0 then begin Dec(h1); m1 := 60; end; end; Label1.Caption := Format('%.2d:%.2d:%.2d', [h1, m1, s1]); end; end.
object Form3: TForm3 Left = 0 Top = 0 Caption = #20498#35745#26102 ClientHeight = 217 ClientWidth = 238 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 151 Width = 222 Height = 42 Alignment = taCenter AutoSize = False Caption = '00:00:00' Font.Charset = ANSI_CHARSET Font.Color = clNone Font.Height = -29 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False Transparent = True end object Button1: TButton Left = 8 Top = 82 Width = 222 Height = 39 Caption = #24320#22987 Default = True TabOrder = 0 OnClick = Button1Click end object Panel1: TPanel Left = 8 Top = 8 Width = 222 Height = 68 BevelOuter = bvNone TabOrder = 1 object SpinEdit1: TSpinEdit Left = 8 Top = 11 Width = 49 Height = 22 MaxValue = 9999 MinValue = 0 TabOrder = 0 Value = 0 end object SpinEdit2: TSpinEdit Left = 63 Top = 11 Width = 49 Height = 22 MaxValue = 60 MinValue = 0 TabOrder = 1 Value = 0 end object SpinEdit3: TSpinEdit Left = 118 Top = 11 Width = 49 Height = 22 MaxValue = 60 MinValue = 0 TabOrder = 2 Value = 60 end object ComboBox1: TComboBox Left = 8 Top = 39 Width = 201 Height = 21 Style = csDropDownList ImeName = #20013#25991' - QQ'#20116#31508#36755#20837#27861 TabOrder = 3 OnCloseUp = ComboBox1CloseUp Items.Strings = ( 'RING1' 'RING2' 'RING3') end end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 176 Top = 176 end object Timer2: TTimer Enabled = False Left = 176 Top = 224 end end