home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 December / Chip_2002-12_cd1.bin / zkuste / delphi / kompon / d23456 / SMPLTIMR.ZIP / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-04-07  |  2.3 KB  |  116 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.   private
  32.     SimpleTimer1: TSimpleTimer;
  33.     SimpleTimer2: TSimpleTimer;
  34.   end;
  35.  
  36. var
  37.   MainForm: TMainForm;
  38.  
  39. implementation
  40.  
  41. {$R *.dfm}
  42.  
  43. {----------------- Callback methods -------------------}
  44.  
  45. procedure TimerProc1(AOwner: TComponent); stdcall;
  46. begin
  47.   with (AOwner as TMainForm) do
  48.   begin
  49.     ListBox1.Items.Add('SimpleTimer1');
  50.     ListBox1.ItemIndex := ListBox1.Items.Count -1;
  51.   end;
  52. end;
  53.  
  54.  
  55. procedure TimerProc2(AOwner: TComponent); stdcall;
  56. begin
  57.   with (AOwner as TMainForm) do
  58.   begin
  59.     ListBox1.Items.Add('SimpleTimer2');
  60.     ListBox1.ItemIndex := ListBox1.Items.Count -1;
  61.   end;
  62. end;
  63.  
  64. {--------------------- TMainForm ----------------------}
  65.  
  66. procedure TMainForm.FormCreate(Sender: TObject);
  67. begin
  68.   SimpleTimer1 := TSimpleTimer.Create(Self, @TimerProc1);
  69.   SimpleTimer2 := TSimpleTimer.Create(Self, @TimerProc2);
  70. end;
  71.  
  72.  
  73. procedure TMainForm.FormDestroy(Sender: TObject);
  74. begin
  75.   SimpleTimer1.Free;
  76.   SimpleTimer2.Free;
  77. end;
  78.  
  79.  
  80. procedure TMainForm.Button1Click(Sender: TObject);
  81. begin
  82.   SimpleTimer1.Start(StrToInt(Edit1.Text));
  83. end;
  84.  
  85.  
  86. procedure TMainForm.Button2Click(Sender: TObject);
  87. begin
  88.   SimpleTimer2.Start(StrToInt(Edit2.Text));
  89. end;
  90.  
  91.  
  92. procedure TMainForm.Button3Click(Sender: TObject);
  93. begin
  94.   SimpleTimer1.Stop;
  95. end;
  96.  
  97.  
  98. procedure TMainForm.Button4Click(Sender: TObject);
  99. begin
  100.   SimpleTimer2.Stop;
  101. end;
  102.  
  103.  
  104. procedure TMainForm.Button5Click(Sender: TObject);
  105. begin
  106.   ListBox1.Clear;
  107. end;
  108.  
  109.  
  110. procedure TMainForm.Button6Click(Sender: TObject);
  111. begin
  112.   Close;
  113. end;
  114.  
  115. end.
  116.