Question

求delphi中进度条完整程序！！！

创建一个线程，然后在线程中实现一个进度条从0跑到100

Answer 1

//请餐考万一的delphi博客chm版 之 delphi与对线程 “多线程编程(1) - 先入门再说”
//或者 关注 万一 大神的 cnblog上的delphi博客 
// http://www.cnblogs.com/del/archive/2009/02/05/1384713.html
function MyFun(): Integer; stdcall;
var
  i: Integer;
begin
  for i := 0 to 100 do
  begin
    Form1.ProgressBar1.Position := i;
    Sleep(100);
  end;
  Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  ID: THandle;
begin
  CreateThread(nil, 0, @MyFun, nil, 0, ID);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;
  ProgressBar1.Position := 0;
end;

Answer 2