unit3.pas

来自「DELPHI 编写的 演示多线程进度的模式处理」· PAS 代码 · 共 54 行

unit Unit3;

interface

uses
  Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Unit1;

type
  mymath2 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public      //手工添加
    constructor create;   //手工添加
  end;

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure mymath2.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ mymath2 }
constructor mymath2.create;   //手动添加
begin
  inherited create(true);
end;

procedure mymath2.Execute;
var
   i : integer;
begin
  { Place thread code here }
  form1.RzProgressBar2.Percent := 0;

   for i := 1 to 100 do
     begin
       form1.RzProgressBar2.Percent := form1.RzProgressBar2.Percent + 1;
       Sleep(100);
     end;
end;

end.