home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kompon / d23456 / SMPLTIMR.ZIP / demos / TTimerTest / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-22  |  2.3 KB  |  117 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls, ComCtrls;
  7.  
  8. type
  9.   TMainForm = class(TForm)
  10.     ListBox1: TListBox;
  11.     Edit1: TEdit;
  12.     UpDown1: TUpDown;
  13.     Label1: TLabel;
  14.     Button1: TButton;
  15.     Edit2: TEdit;
  16.     UpDown2: TUpDown;
  17.     Label2: TLabel;
  18.     Button2: TButton;
  19.     Button3: TButton;
  20.     Button4: TButton;
  21.     Button5: TButton;
  22.     Button6: TButton;
  23.     Timer1: TTimer;
  24.     Timer2: TTimer;
  25.     procedure FormCreate(Sender: TObject);
  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.     procedure Edit1Change(Sender: TObject);
  35.     procedure Edit2Change(Sender: TObject);
  36.   end;
  37.  
  38. var
  39.   MainForm: TMainForm;
  40.  
  41. implementation
  42.  
  43. {$R *.dfm}
  44.  
  45. {--------------------- TMainForm ----------------------}
  46.  
  47. procedure TMainForm.FormCreate(Sender: TObject);
  48. begin
  49.   Timer1.Interval := StrToInt(Edit1.Text);
  50.   Timer2.Interval := StrToInt(Edit2.Text);
  51. end;
  52.  
  53.  
  54. procedure TMainForm.Button1Click(Sender: TObject);
  55. begin
  56.   Timer1.Enabled := True;
  57. end;
  58.  
  59.  
  60. procedure TMainForm.Button2Click(Sender: TObject);
  61. begin
  62.   Timer2.Enabled := True;
  63. end;
  64.  
  65.  
  66. procedure TMainForm.Button3Click(Sender: TObject);
  67. begin
  68.   Timer1.Enabled := False;
  69. end;
  70.  
  71.  
  72. procedure TMainForm.Button4Click(Sender: TObject);
  73. begin
  74.   Timer2.Enabled := False;
  75. end;
  76.  
  77.  
  78. procedure TMainForm.Button5Click(Sender: TObject);
  79. begin
  80.   ListBox1.Clear;
  81. end;
  82.  
  83.  
  84. procedure TMainForm.Button6Click(Sender: TObject);
  85. begin
  86.   Close;
  87. end;
  88.  
  89.  
  90. procedure TMainForm.Timer1Timer(Sender: TObject);
  91. begin
  92.   ListBox1.Items.Add('Timer1');
  93.   ListBox1.ItemIndex := ListBox1.Items.Count -1;
  94. end;
  95.  
  96.  
  97. procedure TMainForm.Timer2Timer(Sender: TObject);
  98. begin
  99.   ListBox1.Items.Add('Timer2');
  100.   ListBox1.ItemIndex := ListBox1.Items.Count -1;
  101. end;
  102.  
  103.  
  104. procedure TMainForm.Edit1Change(Sender: TObject);
  105. begin
  106.   Timer1.Interval := StrToInt(Edit1.Text);
  107. end;
  108.  
  109.  
  110. procedure TMainForm.Edit2Change(Sender: TObject);
  111. begin
  112.   Timer2.Interval := StrToInt(Edit2.Text);
  113. end;
  114.  
  115. end.
  116.  
  117.