TThread и GUI

[Freezer]

Здравствуйте уважаемые коллеги!
У меня появилась следующая задачка. У меня в программе можно создавать любое количество потоков, которые выполняют каждый свой скрипт. Так в скрипте эсть возможность вызывать свои диалоговые формы, и воспламеняющиеся формы(как в QIP). Формы я реализовал свои, как наследники от TForm, но это не столь важно. Проблема заключается в том, что эти формы должны быть абсолютно независимыми, и фукция которая их создает, должна видеть все остальные формы что б правильно рассчитать координаты новой формы. Это нужно для воспламеняющиеся форм, они появляются одна над другой, возле трая. Так вот, с одним или двомя потоками всьо ок, но если из запустить 5-10 штук, начинают вылазить глюки синхронизации. То Access Vialation, то глюки прорисовки. Перелопатил кучу доки, но нигде нормально не описана работа потоков с интерфейсом, максимум вызов через synchronize().
У кого есть идеи, или ссылки на нужную инфу?
Помогите пожалуйста!

[Ntlegend]

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

[Freezer]

Хм.. Я делаю приблезительно так же, но проблема немного не в том. Я немного намутил в вопросе, попробую упростить:

Есть форма с кнопочкой, если нажать на нее должны создаться 10 потоков, и каждый из них должен создать еще по форме и показать из ShowModal.
И того у меня должно быть 10 модальных форм которые не блокируют друг друга.

Как сделать чтобы эта вся штука не вылетала???

[alexBlack]

Посмотрите пример

[BOBAH13]

Идея такова.
1. создать в общем классе, или как общую переменную список TList.
2. в этот самый список, при создании каждого потока добовлять себя(этот поток) при вызове деструктора данного потока удалять из этого списка.
3. если речь о модальных окнах, то не понятно, причем тут общая переменная. При создании каждого потока, есть возможность передавать параметры (или же создать свой-во у потомка TThread), собственно сделать какую-то структуру с вашей информацией и создать в главном (родительском потоке) там где и список с потоками эту структуру. После при создании потока (дочернего) передавать ему указатель на эту структуру, так же не забывать отключить FreeOnTerminate у дочерних потоков.

В дополнее скажу, для синхронизации можно использовать события SetEvent (и другое см. в MSDN), или же просто критические секции CriticalSection (так же в MSDN) очень эффективно если требуется синхронизированное обращение к общим данным.

[s.Creator]

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

Хм.. Я делаю приблезительно так же, но проблема немного не в том. Я немного намутил в вопросе, попробую упростить:

Есть форма с кнопочкой, если нажать на нее должны создаться 10 потоков, и каждый из них должен создать еще по форме и показать из ShowModal.
И того у меня должно быть 10 модальных форм которые не блокируют друг друга.

Как сделать чтобы эта вся штука не вылетала???

А почему именно модальные? Что они блокируют?
Может лучше использовать

FormStyle = fsStayOnTop

а блокировать потоки другими методами?

[Freezer]

alexBlack - спасибо за пример. Честно говоря не подумал про такой вариант. Правда немного смущает выполнение всего в основном потоке с постоянно проверяющим таймером "а не нужно ли что-то создать или удалить", но если не удастся полностью переложить GUI на потоки, то буду развивать эту идею.

Идея такова.
1. создать в общем классе, или как общую переменную список TList.
2. в этот самый список, при создании каждого потока добовлять себя(этот поток) при вызове деструктора данного потока удалять из этого списка.

Ну это ясно, это стандартный прием. Не пойму как это относится к вопросу. Возможно я что-то не так понимаю, если так то объясните подробнее.

3. если речь о модальных окнах, то не понятно, причем тут общая переменная. При создании каждого потока, есть возможность передавать параметры (или же создать свой-во у потомка TThread), собственно сделать какую-то структуру с вашей информацией и создать в главном (родительском потоке) там где и список с потоками эту структуру. После при создании потока (дочернего) передавать ему указатель на эту структуру, так же не забывать отключить FreeOnTerminate у дочерних потоков.

Это конечно да, но я не знаю что может понадобится потоку. Как я описал выше, поток исполняет скрип юзера, а там может и с трая сказать "Выключи чайник", а может спросить диалогом "Вы действительно хотите удалить файл?". Поэтому как это впихнуть в структуру с информацией я что-то не пойму.

А почему именно модальные? Что они блокируют?

Блокируют дальнейшее выполнение кода и поток должен ожидать ModalResult. Конечно я пробовал и показывать обычные формы, а в коде писал

        repeat
          Application.ProcessMessages;
          if Application.Terminated then dlg.result := vcrCancel;
          Sleep(1);
        until dlg.result <> vcrNone;

но с каждым потоком, программа начинает все медленнее отвечать на запросы юзера. А поле 6-7 потоков, тормоза просто жуткие.

[s.Creator]

Может как-то так:
ThreadGUI.zip

[Freezer]

Спасибо всем кто ответил!
Интергировать формы коректно так и не получилось.
Сделал так, потоки создают переменную моего типа TMessageQuery куда записывают заголовок, текст, набор кнопок, тип диалога и т.д., помещают его в защищенный список TTreadList, и зацикливаются.

function KShowDialog(Caption : string; Text: String; Buttons : array of TVcButtonKind; Style : TVcMassageStyle; Icon : TVcIcon): TVcResult;
var q : TMessageQuery;
begin
  q := TMessageQuery.Create(Caption, Text, Buttons, Style, Icon);
  RList.Add(q);
  while (q.Result = vcrNone) and not (Application.Terminated) do begin
    Application.ProcessMessages;
    SleepEx(1, true);
  end;
  Result := q.Result;
  RList.Remove(q);
  q.Free;
end;

К стати метод TMessageQuery.GetResult тоже делал через TCriticalSection.

А в главном потоке по таймеру проверял не появилось ли чего нового в очереди, если появилось - создавал форму. Здесь же проверял не нажали чего на форме, если нажали

q.Result := dlg.result;

и прячу форму.

Правда это получилась эмуляция того что я хотел, но проблему решило! Еще раз всем спасибо, кто принял участие в обсуждении!