unit1.pas

Delphi简单多线程实例

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.