Thread类的创建及使用

最新推荐文章于 2023-03-20 13:21:22 发布

Hunto

最新推荐文章于 2023-03-20 13:21:22 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 控件专题文章标签： thread constructor button interface delphi action

本文链接：https://blog.youkuaiyun.com/Hunto/article/details/69043

Delphi 控件专题专栏收录该内容

6 篇文章

订阅专栏

该博客主要介绍了在Delphi 7.0、Windows 2003 Sever编译环境下，Thread类的创建和使用。详细给出了Thread类创建的代码，包含构造函数、执行方法等；还展示了如何在主窗体中使用该线程类，如创建线程实例、控制线程的暂停和开始等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、Thread类的创建：
unit Thread;
{    线程类的创建
 编译环境: Windows 2003 Sever  Delphi 7.0 Enterprise
}
interface
uses classes,sysutils,StdCtrls;
type
  TB = class(TThread)
  private
    i :integer;
    Fedt :TEdit;
    procedure Update ;
  public
    procedure execute;override;
    constructor create(IsSuspended :Boolean;edt :TEdit);
  end;
implementation
uses MainForm;
procedure TB.Update;
begin
  Fedt.Text :=inttostr(i);
end;
constructor TB.create(IsSuspended: Boolean; edt: TEdit);
begin
  inherited create(IsSuspended);
  Fedt := edt;
end;
procedure TB.execute;
begin
  i:=0;
  while(not Terminated) do
  begin
    Synchronize(Update);
    inc(i);
  end;
end;
end.

二、Thread类的使用：


unit MainForm;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Thread;
type
  TfrmMain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  a,b:TB;
implementation
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  a:=TB.create(true,edit1);
  b:=TB.create(True,edit2);
end;
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  freeandnil(a);freeandnil(b);
end;
procedure TfrmMain.ButtonClick(Sender: TObject);
var c :TB;
begin
  if sender = Button1 then c :=a
  else c:=b;
  if c.Suspended then begin
    c.Resume ; (sender as TButton).Caption :='暂停';
  end else begin
    c.Suspend ;(Sender as TButton).Caption :='开始';
  end;
end;
end.