home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 December / Chip_2002-12_cd1.bin / zkuste / delphi / kompon / d23456 / SMPLTIMR.ZIP / TTimerTest / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-04-07  |  1.9 KB  |  97 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, SimpleTimer, ComCtrls, ExtCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     ListBox1: TListBox;
  12.     Edit1: TEdit;
  13.     UpDown1: TUpDown;
  14.     Label1: TLabel;
  15.     Button1: TButton;
  16.     Edit2: TEdit;
  17.     UpDown2: TUpDown;
  18.     Label2: TLabel;
  19.     Button2: TButton;
  20.     Button3: TButton;
  21.     Button4: TButton;
  22.     Button5: TButton;
  23.     Button6: TButton;
  24.     Timer1: TTimer;
  25.     Timer2: TTimer;
  26.     procedure Button1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure Button4Click(Sender: TObject);
  30.     procedure Button5Click(Sender: TObject);
  31.     procedure Button6Click(Sender: TObject);
  32.     procedure Timer1Timer(Sender: TObject);
  33.     procedure Timer2Timer(Sender: TObject);
  34.   end;
  35.  
  36. var
  37.   MainForm: TMainForm;
  38.  
  39. implementation
  40.  
  41. {$R *.dfm}
  42.  
  43. {--------------------- TMainForm ----------------------}
  44.  
  45. procedure TMainForm.Button1Click(Sender: TObject);
  46. begin
  47.   Timer1.Interval := StrToInt(Edit1.Text);
  48.   Timer1.Enabled := True;
  49. end;
  50.  
  51.  
  52. procedure TMainForm.Button2Click(Sender: TObject);
  53. begin
  54.   Timer2.Interval := StrToInt(Edit2.Text);
  55.   Timer2.Enabled := True;
  56. end;
  57.  
  58.  
  59. procedure TMainForm.Button3Click(Sender: TObject);
  60. begin
  61.   Timer1.Enabled := False;
  62. end;
  63.  
  64.  
  65. procedure TMainForm.Button4Click(Sender: TObject);
  66. begin
  67.   Timer2.Enabled := False;
  68. end;
  69.  
  70.  
  71. procedure TMainForm.Button5Click(Sender: TObject);
  72. begin
  73.   ListBox1.Clear;
  74. end;
  75.  
  76.  
  77. procedure TMainForm.Button6Click(Sender: TObject);
  78. begin
  79.   Close;
  80. end;
  81.  
  82.  
  83. procedure TMainForm.Timer1Timer(Sender: TObject);
  84. begin
  85.   ListBox1.Items.Add('Timer1');
  86.   ListBox1.ItemIndex := ListBox1.Items.Count -1;
  87. end;
  88.  
  89.  
  90. procedure TMainForm.Timer2Timer(Sender: TObject);
  91. begin
  92.   ListBox1.Items.Add('Timer2');
  93.   ListBox1.ItemIndex := ListBox1.Items.Count -1;
  94. end;
  95.  
  96. end.
  97.