|
#1
|
|||
|
|||
Потоки
Здравствуйте! Подскажите пожалуйста как к выполнению потока прикрутить ProgressBar .
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Pogoda, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls; type TForm1 = class(TForm) Button1: TButton; IdHTTP1: TIdHTTP; ProgressBar1: TProgressBar; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyThread = class(TThread) private { Private declarations } protected procedure Execute; override; procedure UpdateCaption; end; var Form1: TForm1; MyThread: TMyThread; implementation {$R *.dfm} procedure TMyThread.UpdateCaption; begin Form1.Caption:='Ïîòîê çàâåðø¸í'; end; procedure TMyThread.Execute; begin pogoda1; Synchronize(UpdateCaption); end; procedure TForm1.Button1Click(Sender: TObject); begin MyThread:=TMyThread.Create(False); MyThread.Priority:=tpNormal; MyThread.FreeOnTerminate:=true; end; end. мне нужно чтоб прогресс бар показывал результат выполнения Код:
procedure TMyThread.Execute; begin pogoda1; Synchronize(UpdateCaption); end; Последний раз редактировалось Gudzik11, 29.06.2012 в 22:29. |