home *** CD-ROM | disk | FTP | other *** search
- unit Main;
-
- interface
-
- uses
- SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls, ComCtrls;
-
- type
- TMainForm = class(TForm)
- ListBox1: TListBox;
- Edit1: TEdit;
- UpDown1: TUpDown;
- Label1: TLabel;
- Button1: TButton;
- Edit2: TEdit;
- UpDown2: TUpDown;
- Label2: TLabel;
- Button2: TButton;
- Button3: TButton;
- Button4: TButton;
- Button5: TButton;
- Button6: TButton;
- Timer1: TTimer;
- Timer2: TTimer;
- procedure FormCreate(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure Button5Click(Sender: TObject);
- procedure Button6Click(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
- procedure Timer2Timer(Sender: TObject);
- procedure Edit1Change(Sender: TObject);
- procedure Edit2Change(Sender: TObject);
- end;
-
- var
- MainForm: TMainForm;
-
- implementation
-
- {$R *.dfm}
-
- {--------------------- TMainForm ----------------------}
-
- procedure TMainForm.FormCreate(Sender: TObject);
- begin
- Timer1.Interval := StrToInt(Edit1.Text);
- Timer2.Interval := StrToInt(Edit2.Text);
- end;
-
-
- procedure TMainForm.Button1Click(Sender: TObject);
- begin
- Timer1.Enabled := True;
- end;
-
-
- procedure TMainForm.Button2Click(Sender: TObject);
- begin
- Timer2.Enabled := True;
- end;
-
-
- procedure TMainForm.Button3Click(Sender: TObject);
- begin
- Timer1.Enabled := False;
- end;
-
-
- procedure TMainForm.Button4Click(Sender: TObject);
- begin
- Timer2.Enabled := False;
- end;
-
-
- procedure TMainForm.Button5Click(Sender: TObject);
- begin
- ListBox1.Clear;
- end;
-
-
- procedure TMainForm.Button6Click(Sender: TObject);
- begin
- Close;
- end;
-
-
- procedure TMainForm.Timer1Timer(Sender: TObject);
- begin
- ListBox1.Items.Add('Timer1');
- ListBox1.ItemIndex := ListBox1.Items.Count -1;
- end;
-
-
- procedure TMainForm.Timer2Timer(Sender: TObject);
- begin
- ListBox1.Items.Add('Timer2');
- ListBox1.ItemIndex := ListBox1.Items.Count -1;
- end;
-
-
- procedure TMainForm.Edit1Change(Sender: TObject);
- begin
- Timer1.Interval := StrToInt(Edit1.Text);
- end;
-
-
- procedure TMainForm.Edit2Change(Sender: TObject);
- begin
- Timer2.Interval := StrToInt(Edit2.Text);
- end;
-
- end.
-
-