读书人

delphi 窗口调用有关问题讨论

发布时间: 2013-01-28 11:49:56 作者: rapoo

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.


MainForm:

procedure TMainForm.btnOpenCClick(Sender: TObject);
begin
ChildFrom:=TChildFrom.Create(Self);
try
ChildFrom.ShowModal;
finally
ChildFrom.Free;
end;
end;

ChildForm:

procedure TChildFrom.btn1Click(Sender: TObject);
begin
ShowMessage('I will close!');
close;
end;

LoadForm:

procedure TLoadForm.btn1Click(Sender: TObject);
begin
ShowMessage('OK');
close;
end;


你的代码里:DL.Hide; 这句不用的吧。上面已经Free了!还隐藏做什么呢!

读书人网 >.NET

热点推荐