Зависание на application.CreateForm(TForm1, Form1);

[Sanprof]

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

Другое дело что автор для нее Parent не указывает, потому ей возможно негде отрисовываться.

а как ей Parent указать на TForm2???

[Utkin]

А надо TForm2? У тебя форма будет создаваться из TForm2? Тогда однозначно рецепт Стилета.... Передавай в качестве Parenta Self. Self - значит я, меня. То есть здесь в качестве родителя указывается текущий объект (если создаешь из TFrom2, то это он и будет).

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(self.classname + #13#10 + self.name);
end;

Вот побалуйся.

[Sanprof]

Вот именно Self не получится, т.к. Форма TForm1 создается из модуля, в котором реализован поток, а не из того, где реализована TForm2.

[evg_m]

проблема такая, что в потоке у меня создается форма

потоки и VCL(создание, показ форм) совмещаются при помощи функции Synchonize

procedure TMyThread.ShowForm;
begin
f:=TForm1.Create(nil);
f.showModal;
f.Free;
end;

procedure TMyThead.Excecute;
begin
// что-то делаем очень долго
.............
// захотели показть и приостановли поток(showmodal)
synchronize(Showform);
// продолжили что-то делать
.........
end;

[Sanprof]

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

потоки и VCL(создание, показ форм) совмещаются при помощи функции Synchonize

procedure TMyThread.ShowForm;
begin
f:=TForm1.Create(nil);
f.showModal;
f.Free;
end;

procedure TMyThead.Excecute;
begin
// что-то делаем очень долго
.............
// захотели показть и приостановли поток(showmodal)
synchronize(Showform);
// продолжили что-то делать
.........
end;

Спасибо, что напомнили, сам еще в начале хотел через синхронизацию сделать, да че-то вылетело из головы, что так и нужно делать. Через синхронизацию таки заработало.