home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kompon / d23456 / SMPLTIMR.ZIP / demos / SimpleTimerTest / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-28  |  2.9 KB  |  136 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Classes, Controls, Forms, StdCtrls, ComCtrls, SimpleTimer;
  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.     procedure FormCreate(Sender: TObject);
  24.     procedure FormDestroy(Sender: TObject);
  25.     procedure Button1Click(Sender: TObject);
  26.     procedure Button2Click(Sender: TObject);
  27.     procedure Button3Click(Sender: TObject);
  28.     procedure Button4Click(Sender: TObject);
  29.     procedure Button5Click(Sender: TObject);
  30.     procedure Button6Click(Sender: TObject);
  31.     procedure Edit1Change(Sender: TObject);
  32.     procedure Edit2Change(Sender: TObject);
  33.   private
  34.     SimpleTimer1: TSimpleTimer;
  35.     SimpleTimer2: TSimpleTimer;
  36.     procedure TimerProc1(Sender: TObject);
  37.     procedure TimerProc2(Sender: TObject);
  38.   end;
  39.  
  40. var
  41.   MainForm: TMainForm;
  42.  
  43. implementation
  44.  
  45. {$R *.dfm}
  46.  
  47. {--------------------- TMainForm ----------------------}
  48.  
  49. procedure TMainForm.FormCreate(Sender: TObject);
  50. begin
  51.   SimpleTimer1 := TSimpleTimer.Create(StrToInt(Edit1.Text), TimerProc1);
  52.   SimpleTimer2 := TSimpleTimer.Create(StrToInt(Edit2.Text), TimerProc2);
  53. {
  54.   Alternative:
  55.   
  56.   SimpleTimer1 := TSimpleTimer.Create;
  57.   SimpleTimer2 := TSimpleTimer.Create;
  58.   SimpleTimer1.Interval := StrToInt(Edit1.Text);
  59.   SimpleTimer2.Interval := StrToInt(Edit2.Text);
  60.   SimpleTimer1.OnTimer := TimerProc1;
  61.   SimpleTimer2.OnTimer := TimerProc2;
  62. }
  63. end;
  64.  
  65.  
  66. procedure TMainForm.TimerProc1(Sender: TObject);
  67. begin
  68.   ListBox1.Items.Add('SimpleTimer1');
  69.   ListBox1.ItemIndex := ListBox1.Items.Count -1;
  70. end;
  71.  
  72.  
  73. procedure TMainForm.TimerProc2(Sender: TObject);
  74. begin
  75.   ListBox1.Items.Add('SimpleTimer2');
  76.   ListBox1.ItemIndex := ListBox1.Items.Count -1;
  77. end;
  78.  
  79.  
  80. procedure TMainForm.FormDestroy(Sender: TObject);
  81. begin
  82.   SimpleTimer1.Free;
  83.   SimpleTimer2.Free;
  84. end;
  85.  
  86.  
  87. procedure TMainForm.Button1Click(Sender: TObject);
  88. begin
  89.   SimpleTimer1.Enabled := True;
  90. end;
  91.  
  92.  
  93. procedure TMainForm.Button2Click(Sender: TObject);
  94. begin
  95.   SimpleTimer2.Enabled := True;
  96. end;
  97.  
  98.  
  99. procedure TMainForm.Button3Click(Sender: TObject);
  100. begin
  101.   SimpleTimer1.Enabled := False;
  102. end;
  103.  
  104.  
  105. procedure TMainForm.Button4Click(Sender: TObject);
  106. begin
  107.   SimpleTimer2.Enabled := False;
  108. end;
  109.  
  110.  
  111. procedure TMainForm.Button5Click(Sender: TObject);
  112. begin
  113.   ListBox1.Clear;
  114. end;
  115.  
  116.  
  117. procedure TMainForm.Button6Click(Sender: TObject);
  118. begin
  119.   Close;
  120. end;
  121.  
  122.  
  123. procedure TMainForm.Edit1Change(Sender: TObject);
  124. begin
  125.   SimpleTimer1.Interval := StrToInt(Edit1.Text);
  126. end;
  127.  
  128.  
  129. procedure TMainForm.Edit2Change(Sender: TObject);
  130. begin
  131.   SimpleTimer2.Interval := StrToInt(Edit2.Text);
  132. end;
  133.  
  134. end.
  135.  
  136.