线程打开窗体,两三次后 为什么会卡呢?
在线程里面
procedure TMyThread.Execute;
var
vForm:TFormTest;
begin
vForm := TFormTest.Create(FormMain);
vForm.showModal;
FreeAndNil(vForm);
self.Terminate;
end;

[解决办法]
vForm.showModal;
改为
vForm.show; 试试！
[解决办法]
showmodel是打开并等待弹出窗体结束，其间主线程会被挂起，多线程运行时打开两三次不卡才怪