为什么 在线程 动态创建的窗体 , 在 Execute 完 ,动态创建的窗体就消失了
为什么 在线程 动态创建的窗体 , 在 Execute 完 ,动态创建的窗体就消失了
代码如下:
constructor TShowWCLTH.Create;
begin
inherited
Create(false);
FreeOnTerminate := False;
end;
procedure TShowWCLTH.Execute;
var
TempCallRec_Form :tXHCallRec_Form;
begin
TempCallRec_Form :=tXHCallRec_Form.Create(nil);
TempCallRec_Form.Show ;
end;
已经将 FreeOnTerminate := False; 但TempCallRec_Form 显示 了一下就消失 了 ,怎样才能让动态创建的窗体不会消失!!
[解决办法]
TempCallRec_Form.ShowModal;
嘿嘿,挂住看看