unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, RzLabel, RzPrgres, LbButton;

type
  TForm1 = class(TForm)
    RzProgressBar1: TRzProgressBar;
    RzProgressBar2: TRzProgressBar;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzButton3: TRzButton;
    RzButton4: TRzButton;
    LbButton1: TLbButton;
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton3Click(Sender: TObject);
    procedure RzButton4Click(Sender: TObject);
    procedure LbButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
   unit2,unit3;     //調用線程unit；
var
   thread1 : mymath1;    //定義線程變量，mymath1為線程ClassName；
   thread2 : mymath2;

procedure TForm1.RzButton1Click(Sender: TObject);
begin
   thread1.resume;   //線程1喚醒；
end;

procedure TForm1.RzButton2Click(Sender: TObject);
begin
   thread2.resume;   //線程2喚醒；
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   thread1:=mymath1.create;   //創建線程1；
   thread2:=mymath2.create;   //創建線程2；
end;

procedure TForm1.RzButton3Click(Sender: TObject);
begin
   thread1.destroy;     //線程1析構；
   thread2.destroy;     //線程2析構；
   Application.Terminate;
end;

procedure TForm1.RzButton4Click(Sender: TObject);
begin
   thread1.destroy;     //線程1析構；
   thread2.destroy;     //線程2析構；
   thread1:=mymath1.create;   //創建線程1；
   thread2:=mymath2.create;   //創建線程2；
end;

procedure TForm1.LbButton1Click(Sender: TObject);
begin
  ShowMessage('我是一個按鈕！');
end;

end.