delphi 窗口调用问题讨论
写了个程序,主窗体在NoCreate时间中写
Application.CreateForm(tDLCT,DLCT);
DLCT.ShowModal;
DLCT.Free;end;
在登陆窗口的button按钮事件中
判断语句………………
begin //显示主窗体
ZJM.Show;
DLCt.hide;
end;
进入程序后,主窗口form1调用form2
form2:=form2.Create(Application);
form2.ShowModal;
form2.Free;
这样调用后,如果切换窗口,form2便会隐藏,要单击下左键,form2才会弹出来。
请问这是什么问题造成的,为什么?
[解决办法]
楼主的MainForm是不是MDI窗体啊?不是的话这样没问题,是的话还没看过
3个窗体
LoadForm,MainForm,ChildForm;
Source:
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TLoadForm, LoadForm);
try
LoadForm.ShowModal;
finally
LoadForm.Free;
end;
Application.Run;
end.
procedure TMainForm.btnOpenCClick(Sender: TObject);
begin
ChildFrom:=TChildFrom.Create(Self);
try
ChildFrom.ShowModal;
finally
ChildFrom.Free;
end;
end;
procedure TChildFrom.btn1Click(Sender: TObject);
begin
ShowMessage('I will close!');
close;
end;
procedure TLoadForm.btn1Click(Sender: TObject);
begin
ShowMessage('OK');
close;
end;