首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi 窗口调用有关问题讨论

2013-01-28 
delphi窗口调用问题讨论写了个程序,主窗体在NoCreate时间中写Application.CreateForm(tDLCT,DLCT)DLCT.Sh

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了!还隐藏做什么呢!

热点排行