非常奇怪的问题！我主窗口中有一函数TFormMain.CreateForm1(),是用于创建form1窗口的，但在线程中调用FormMain.CreateForm1(),程序就死了

[bphantom]

主窗口中的CreateForm1()函数如下：
procedure TFormMain.CreateForm1();
begin
Form1 := TForm1.Create(self);
Form1.ShowModal();
end;
（Form1的FormStyle为fsStayOnTop，主窗口为fsNormal或fsMDIForm,不重要，问题都一样存在）
我在主窗口的一按钮中调用CreateForm1(),很正常创建了Form1;
我在另一窗口（比如Form2）的一按钮中调用FormMain.CreateForm1(),也很正常建了Form1；
但我在线程中调用FormMain.CreateForm1()，程序就死了，我发现死在了Form1 := TForm1.Create(self);这一句，日，怎么回事？？？？？？？？
线程中调用简化为：
procedure TCtrlThread.Execute;
begin
while Terminated=false do
begin
sleep(250);
if FormMain.ReadBit()=1 then//有车->空循环到没车->执行->结束
begin
while FormMain.ReadBit()=1 do
begin
sleep(250)
end;
FormMain.CreateForm1();
end;
end;
end;
我在此线程中调用主窗口的其他函数，如上面的FormMain.ReadBit()都很正常，但ReadBit()没有创建窗口的语句的。

[hch_45]

prcedure TCtrlThread.CreateForm1Thread;
begin
FormMain.CreateForm1();
end;
procedure TCtrlThread.Execute;
begin
while Terminated=false do
begin
sleep(250);
if FormMain.ReadBit()=1 then//有车->空循环到没车->执行->结束
begin
while FormMain.ReadBit()=1 do
begin
sleep(250)
end;
Synchronize(CreateForm1Thread);
end;
end;
end;

试看看。

[idilent]

线程调用vcl的时候需要使用同步，在你建立一个线程的时候，得到的代码里面有提示，是不是因为这个原因？

[idilent]

线程调用vcl的时候需要使用同步，在你建立一个线程的时候，得到的代码里面有提示，是不是因为这个原因？

[fyje]

由于你在另一个线程里创建并且使用了showmodal方法，showmodal方法要求你必须先响应这个窗口才能处理其他的事情，当系统执行到这句的时候，系统就等待你关闭form1
建议你使用show,或者在主线程创建form1，就会正常了
procedure TFormMain.CreateForm1();
begin
Form1 := TForm1.Create(self);
Form1.Show();
end;

[hch_45]

procedure TCtrlThread.CreateForm1Theard;
begin
FormMain.CreateForm1();
end;

procedure TCtrlThread.Execute;
begin
while Terminated=false do
begin
sleep(250);
if FormMain.ReadBit()=1 then//有车->空循环到没车->执行->结束
begin
while FormMain.ReadBit()=1 do
begin
sleep(250)
end;
Synchronize(CreateForm1Theard);
end;
end;
end;
试看看

[XXSingle]

同意fyje(云中仙)的说法，当用showmodal时，线程会等待showmodal的 窗体关闭后，才能继续执行...........当前线程.....

[lxhong1980]

学习

[bphantom]

你们说的都没错，但我是一定要用showModal的，我要它的返回值的，如if mrOk=ShowModal then
其实我的procedure TFormMain.CreateForm1();是一个很长的procedure,不是这么简单的，怪我没说清楚吧。所以TFormMain.CreateForm1()是不能改的。
我看了 idilent(成为星星的同时，露出菜鸟的实质) 和 hch_45(んこん) 的回复，有所启发，终于搞定，谢谢你们，以后还得多多请教。
改为这样就行了：
procedure TCtrlThread.Execute;
begin
while Terminated=false do
begin
sleep(250);
if FormMain.ReadBit()=1 then//有车->空循环到没车->执行->结束
begin
while FormMain.ReadBit()=1 do
begin
sleep(250)
end;
Synchronize(TFormMain.CreateForm1);
end;
end;
end;

[bphantom]

该是：Synchronize(FormMain.CreateForm1);