Потоки

[Unique_Maks]

Здравствуйте.
не выходит создать псевдопараллелизм.
Пытаюсь создать еще один поток в обработчике FormShow:

procedure TF.FormShow(Sender: TObject);
var
  p: Tmy_thread;
begin
  p := Tmy_thread.Create(true);
  p.FreeOnTerminate := true;
  p.Priority := tpNormal;
  p.Start;
  // тут процедура, выполняющаяся ~20сек
  //
  //  
  p.Terminate;
end;

наследник Tthread:

Tmy_thread = class(Tthread)
private
  form: Tform;
protected
  procedure Execute; override;
  procedure create_form;
  procedure delete_form;
end;

procedure Tmy_thread.delete_form;
begin
  form.Free;
end;

procedure Tmy_thread.Execute;
begin
  inherited;
  Synchronize(create_form);
  while not Terminated do
    sleep(50);
  Synchronize(delete_form);
end;

procedure Tmy_thread.create_form;
begin
  form := TForm.Create(F); // F - name main form
  form.Show;
end;

Все нормально работает если повесить старт и стоп потока на кнопки, а так - нет.
Подскажите в чем косяк.
Заранее благодарю.

[evg_m]

а в чем все же ненормальность поведения приведенного кода?

в том что не показывается форма в потоке? так за показ той формы отвечает главный поток. А он занят (ему некогда)

// тут процедура, выполняющаяся ~20сек
//
//

а когда у него появится время, то поток уже ВСЕ

  p.Terminate;

если повесить старт и стоп потока на кнопки

уточним на РАЗНЫЕ кнопки (или по крайней мере на два РАЗНЫХ нажатия одной кнопки).
Так между ДВУМЯ нажатиями у главного потока найдется время и для показа всяких разных форм.

в первом (приведенном) случае вы и запуск и остановку делаете в ОДНОЙ процедуре и система не получает возможностей по отображению.
в другом (по нажатиям кнопок) запуск и остановка разнесены по разным процедурам, между которыми успевает поработать система по отображению окон(форм).

[Alex11223]

А что вы сделать путаетесь? Нельзя создавать формы и т.д. не из VCL потока.

[Unique_Maks]

Я считал, что после создания нового потока он будет работать параллельно (формально) основному и если система не загружена на 99%, то найдется время на обработку второго вместе с первым, но форма отображается, как Вы указали, на мгновение уже после долгой процедуры.

[Unique_Maks]

Пытаюсь создать форму ожидания долгих задач

[evg_m]

после создания нового потока он будет работать параллельно (формально) основному

поток-то будет работать, но VCL объекты(формы) используют системные ресурсы, доступные только главному потоку. Именно поэтому и нельзя их использовать без syncronize. А доступ к системным ресурсам возможен только ВНЕ ваших процедур. Поэтому поток хоть и выполнит свою задачу по получению данных во время долгих процедур основного, но возможность показа получит только по окончании долгой процедуры основного потока.

[Unique_Maks]

он даже не получает ни каких данных во время выполнения долгой процедуры, дальше inherited не идет, только после завершения выполнения длительной операции начинает выполнять строки после inherited.
Как поступать в таких случаях? что посоветуете?

[evg_m]

procedure Tmy_thread.Execute;
begin
inherited;
Synchronize(create_form);

так сразу после inherited у вас стоит synchronize (ОЖИДАНИЕ свободного! основного потока). А он(основной поток) занят!! Вот и стоим ждем-с.

не получает ни каких данных во время выполнения долгой процедуры, дальше inherited не идет, только после завершения выполнения длительной операции начинает выполнять строки

Надо убирать из-потока Synchornize.

алгоритм работы таков (должен быть).
в основном потоке
1.создаем поток в остановленном состоянии
2.готовим данные (в т.ч. создаем показываем форму ожидания)
3.ПИШЕМ процедуру и задаем потоку OnTerminate (что делать когда поток закончит работу) например убрать форму!! примеры есть на форуме.
4.запускаем поток. В нем теперь нет ни одной Synchronize (мы их оставили в основной программе.
Да и форма ему не нужна. Наоборот это форма которую мы показываем знает про поток и что ей делать когда поток остановится и как его остановить.

Tform1 =class(TFrom)
private
  mythread: TTread; // знает про СВОЙ поток.

procedure OnTreadTerminate(sender: TObject); // что делать когда поток остановится

procedure ButtonStopClick(sender: TObject); //как его остановить

P.S. и никаких долгих процедур в основном потоке. иначе ЛЮБОЙ показ будет только после.
точнее любой syncronize потока будет ждать любую "долгую" процедуру основного потока.

[Unique_Maks]

то же самое что и

procedure Tmain_form.FormShow(Sender: TObject);
var
  form: Tform;
begin
  form := Tform.create(main_form);
  form.show;
  // долгая задача
  //
  form.free
end;

[evg_m]

// долгая задача
//

А вот этому самое место в потоке!
Создали форму, поток, и сидим плюем в потолок пока он трудится. А форма ничего не делает. Только разве что следит за потоком

Trrad.OnTerminate:=formx.TreadStoped; //при остановке форма получит "извещение" (в основном потоке будет вызвана указанная процедура).

И при желании может остановить его же

Trrad.Terminate;