Многопоточность showmodal и WaitForSingleObject

[bulldog5293]

имеется много потоков которые в определённом условии используют вызов showmodal из synchronyze, проблема в том что 2 и более потоков могут потребовать вызов showmodal и поставить весь вызов в цикл, решил воспользоваться WaitForSingleObject, но информации о том как её использовать в потоке для вызова showmodal, что бы пока один из потоков не закончит с ней работать остальные ждут так и не нашёл. Сам вызов кода выглядит так

procedure ShowModalForm;
begin
Form2.ShowModal;
end;

.........
  try
    a := Str3;
    new2 := TStringList.Create;
    Form2.image1.Canvas.TextOut(10, 10, a);
    Syncronize (ShowModalForm);
    pipecs := Form2.edit1.text;
    except

единственное что я нашёл на вашем форуме

var t:tt;
begin
 t:=tt.Create(false);
 WaitForSingleObject(t.Handle,INFINITE);
 ShowMessage('Отработала');
 t.Free;
end;
...

tt = class(TThread)

procedure tt.Execute;
var i:integer;
begin
 for i := 0 to 10 do begin
  Sleep(100);
  //Application.ProcessMessages;
 end;
  { Place thread code here }
end;

но там WaitForSingleObject стоит на ожидание потока, а мне в потоке нужно на ожидание showmodal, может кто ни будь пролить на это свет

[Пепел Феникса]

могут потребовать вызов showmodal и поставить весь вызов в цикл

что значит в цикл?

но информации о том как её использовать в потоке для вызова showmodal, что бы пока один из потоков не закончит с ней работать остальные ждут так и не нашёл.

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

[veniside]

А чего вы хотите добиться, вызвав WaitForSingleObject? Узнать, а не висит ли уже главный поток внутри ShowModal()? Так это можно сделать с помощью обычного флага. Или вы хотите обождать, пока главный поток выйдет из ShowModal(), и только тогда запустить свой Synchronize()? Так Synchronize() и без вашей помощи обождёт, когда главный поток освободится.

[bulldog5293]

тоесть при Synchronize из двух потоко доступ к showmodal имеет только один?

[Пепел Феникса]

еще проще, код внутри синхрониз может выполнять лишь один поток(и даже главный будет ждать)
(повторю, если не нарушены правила VCL, в данном случае они не нарушены)

[bulldog5293]

Даже если весь Execute обёрнут в TCriticalSection

[mss]

А MessageBox не спасет отца русской демократии ?
Она модальна и для ее вызова синхронизация с осн.потоком не требуется.

[GunSmoker]

Вместо Synchronize отправляйте главному окну спец. сообщение.

По приёму сообщения главное окно покажет ShowModal-ом другое окно.

Только мне сомнительна ценность показа модального окна не по команде пользователя. Пахнет говно-софтом.

[bulldog5293]

на подобе такого что ли?
из потока

PostMessage(Form1.Handle, WM_THREAD_COMPLETE, SS, 0);

в форму

procedure TForm1.ThreadComplete(var Message: TMessage);
begin
  if Assigned(CT[Message.WParam]) then
  begin
    CT[Message.WParam].WaitFor;
    FreeAndNil(CT[Message.WParam]);
  end;
memo1.Lines.Add('Поток завершен');
end;

[GunSmoker]

Наверное.

Только кто такой CT - не ясно. Где тут ShowModal - тоже.