Многопоточное приложение

[Sciv]

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

Тогда нет смысла в многопоточности, всё будет выполнятся в родительском потоке

А Вы предлагаете к компонентам формы без синхро обращаться?

Name := Form1.CheckListBox1.Items[v]; 
...
// Читаем информацию с окна
...

[devzik111]

Name := Form1.CheckListBox1.Items[v]; <<<<ТАК НЕЛЬЗЯ

Согласен, ерунду написал. Почему-то сразу не додумался передавать имя, как хендл.

Вроде все заработало! Сделал запуск потоков в отдельном потоке:

procedure OpenWindow.Execute;
begin
  for v := 0 to Form1.CheckListBox1.Count - 1 do
   if Form1.CheckListBox1.Checked[v]
     then
          begin
             Wnd := window [v]; 
             Name := Form1.CheckListBox1.Items[v];
             TMyThread.Create(wnd, Name);
             sleep(200);
          end ;
      OpWin.Terminate;
end;

Не знаю, конец ли это или не конец, но спасибо!)

[eoln]

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

А Вы предлагаете к компонентам формы без синхро обращаться?

Я не про это. Там ведь там ВСЁ содержимое потока синхронизируется, т.е ВСЁ будет выполнятся в главном потоке, т.е НЕТ никакой многопоточности вовсе.

[Sciv]

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

Я не про это. Там ведь там ВСЁ содержимое потока синхронизируется

Ага, медленно, но до меня дошло
"Я не тормоз, я медленный газ" (с)