|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
progressbar в поток
Приветствую.
Впервые использую потоки. Возникла необходимость показывать движущийся прогресс бар при долгих действиях (н\п призагрузке файла). Бар в отдельной форме. Почему-то не работает( Код:
............ TMyThread = class(TThread) private protected procedure Execute; override; procedure Update; end; var Form1: TForm1; MyThread: TMyThread; implementation ......... Код:
procedure TMyThread.Update; begin Form3.ProgressBar1.StepIt; end; Код:
procedure tMyThread.Execute; begin while not Terminated do begin Synchronize(Update); sleep(1000); end; end; Код:
........ if (not Assigned(form3)) then form3:=tform3.Create(form3); form3.Show; MyThread:=TMyThread.Create(true); // долгие операции MyThread.Terminate; form3.close; ......... Я за здоровый экстрим! Спасибо за "спасибо") |