进度条与线程

原创 2015年11月21日 14:04:15
unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, Menus,
  StdCtrls, cxButtons, ComCtrls, RzPrgres;


type
  TMyThread = Class(TThread)
  protected
    procedure execute;override;
  end;
  TForm1 = class(TForm)
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    ProgressBar1: TRzProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  threadEnd :boolean;


implementation


{$R *.dfm}


{ TMyThread }


procedure TMyThread.execute;
var
  i: integer;
begin
  i:=0;
  threadEND := false;
  FreeOnTerminate := true;
  repeat
    i := i + 1;
    Form1.ProgressBar1.partscomplete := i;
    Sleep(1000);
    application.ProcessMessages;
  until (I>=Form1.ProgressBar1.TotalParts) or Threadend;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  progressBar1.totalparts := 100;
end;


procedure TForm1.cxButton1Click(Sender: TObject);
begin
  TMythread.Create(false);
end;


procedure TForm1.cxButton2Click(Sender: TObject);
begin
  ThreadEnd := true;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ThreadEnd := true;
end;


end.

相关文章推荐

用线程实现进度条显示

  • 2013年01月21日 12:02
  • 37KB
  • 下载

线程+无模式对话框进度条

  • 2009年06月06日 18:29
  • 47KB
  • 下载

利用线程来处理java中进度条动态改…

//继承JProgressBar类 import javax.swing.*; import java.awt.*; import java.awt.event.*; import javax.swi...

线程的方法实现进度条更新

  • 2016年01月15日 15:28
  • 1.03MB
  • 下载

自绘线程进度条不能循环

  • 2017年03月02日 11:34
  • 135KB
  • 下载

Process进程 ; Thread线程 (拷贝文件,带进度条的使用实例)

前台线程和后台线程 using System; using System.Collections.Generic; using System.Linq; using System.Text; usi...

java——深层次文件拷贝,建立定时器守护线程做进度条

package L15.PThread;import org.junit.Test;import java.io.*; import java.text.SimpleDateFormat; impor...

vb.net进度条,线程,显示

  • 2011年09月16日 10:28
  • 38KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:进度条与线程
举报原因:
原因补充:

(最多只允许输入30个字)