Не привязанный прогресс при запуске приложения

[altcore]

Прошу помочь, т.к. на тестовые примеры с одной формой у меня получаются, а свою проблему решить не могу.

[artemavd]

Если сейчас подробно не распишешь, что именно у тебя не получается, то я закрою тему.

[altcore]

На заставке, которая "висит" до появления основной формы, не получается сделать бегающий прогресс.

begin
  Application.Initialize;
  fmProgress := TfmProgress.Create(Application);
  fmProgress.Show;
  fmProgress.Update;

  Application.CreateForm(TForm1, Form1);
  ...
  fmProgress.Free;
  Application.Run;

Сама форма с прогреcсом:

procedure TfmProgress.KillProgress;
begin
  NewThread.DoTerminate;
end;

procedure TNewThread.Execute;
var
  i: integer;
begin
  while not Terminated do
    Synchronize(DoWork);
end;

procedure TNewThread.DoWork;
begin
 // здесь любой код, например
if  fmProgress.pbProg.Position = 100 then
  fmProgress.pbProg.Position := 0;
fmProgress.pbProg.Position := fmProgress.pbProg.Position + 10;
end;

procedure TfmProgress.FormShow(Sender: TObject);
begin
  NewThread := TNewThread.Create(true);
  NewThread.FreeOnTerminate := true;
  NewThread.Priority := tpLower;
  NewThread.Resume;
end;

[artemavd]

То есть он должен бегать независимо ни от чего? Просто так? Если да, то так и напишите в таймере на форме, на которой ProgressBar:

 begin
  if ProgressBar1.Position = 100 then
  begin
   ProgressBar1.Position:=0;
  end;
 end;

тогда индикатор прогрессбара будет бегать без остановки с заданным Interval в таймере.

[altcore]

Бегать просто так, независимо ни от чего. Но проблема не конкретно в реализации прокрутки бара, а в реализации потока. Бегать прогресс начинает только после появления главной формы.

[artemavd]

Я привел пример без потока. Я бы так сделал. Можете запускать таймер после какой-либо процедуры.

[altcore]

Т.е. вы хотите сказать, что оно будет выполнятся во время создания форм?

  Application.Initialize;
  fmProgress := TfmProgress.Create(Application);
  fmProgress.Show;
  fmProgress.Update;

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  ...
  fmProgress.Free;
  Application.Run;

Мне кажется, что результат будет точно такой, как и при моих попытках реализации через потоки. Т.е. бегать прогресс не будет.

[artemavd]

Не знаю не проверял. Попробуйте поместить код включения таймер в OnCreate формы и посмотрите результат.

[altcore]

Оно будет работать, если писать так:

  Application.Initialize;
  fmProgress := TfmProgress.Create(Application);
  fmProgress.Show;
  fmProgress.Update;

  Application.CreateForm(TForm1, Form1);
  Application.ProcessMessages;
  sleep(500);
  Application.CreateForm(TForm2, Form2);
  Application.ProcessMessages;
  sleep(500);
  Application.CreateForm(TForm3, Form3);
  ...
  fmProgress.Free;
  Application.Run;

Но это костыли. Да и для моего проекта такой вариант не подходит. Так как основная задержка по времени происходит при создании 1 формы, в которой компилируются скрипты.

В принципе мои требования выполняются, если кинуть на форму TMediaPlayer и проигрывать avi. Но хотелось бы разобрать вариант с потоками.

Кто-нибудь в состоянии помочь ?!

[BOBAH13]

Сообщение от altcore

Кто-нибудь в состоянии помочь ?!

Я точно в состоянии. Да и думаю многие тут тоже. А Вы, в состоянии? Где точный вопрос проблемы?