procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max; ProgressBar1.Position := ProgressBar1.Position + 1; if ProgressBar1.Position > 100 then begin ShowMessage('Всё'); end; end; Система: Windows 10 x64, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик
