新学delphi,关于窗体的三个问题,谢谢大哥。 最近学习MDI多文档窗体,遇到了问题:1、子窗体最大化后,如何做到让 子窗体右上角仍有最大化,最小和关闭按钮?并且按了关闭按钮后,该子窗体会关闭。2、主窗体运行后,如何控制子窗体的显示和关闭,比如有10个子窗体,我程序运行时默认只要显示其中一个子窗体,比如FORM23、一般在实际开发软件中,MDI用的多吗?我感觉很麻烦。我认为点一下一个按钮,弹出一个窗体,操作完了,关闭该窗体。这种模式会更好一些,是吗?谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 {MDI父窗体的formstyle为fsmdiformMDI子窗体的formstyle为fsmdichildMDI子窗体设置为手动创建1.MDI子窗体最大化以后,在主窗体的关闭下面就会看到MDI子窗体的最大化和最小化还有关闭按钮;子窗体关闭时在OnClose里面加入下面的代码就可以关闭子窗体了:}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);begin action:=cafree;end;{2.只运行一个子窗体}procedure TForm1.ButtonClick(Sender: TObject);begin try if application.MainForm.MDIChildCount>0 then activemdichild.Close; finally TForm2.Create(Self); end;end;{3.不同的软件有不同的设计风格,也不要基于一种开发模式,关键要学会创新} 怎样将一个excel中的第二行至最后一行,复制到另一个excel中的第二行至最后一行 delphi7 webbrowser delphi中编程操作Alter语句 如何将菜单放到下面啊 QuickReport 可以不用数据库组件,而用一个循环进行显示吗? 怎么改变墙纸 关于一个ole控件的问题 如何从扫描仪读数据? 关于如何保存另一进程内存的问题? 救命呀?辛辛苦苦做的不能让它付之东流了,呜呜。窗体怎么自动弹出? 为什么我定义的全局鼠标钩子只响应一次,求高手解决 Quickreport下QRExpr分组统计的问题
{MDI父窗体的formstyle为fsmdiform
MDI子窗体的formstyle为fsmdichild
MDI子窗体设置为手动创建
1.MDI子窗体最大化以后,在主窗体的关闭下面就会看到MDI子窗体的最大化和最小化还有关闭按钮;子窗体关闭时在OnClose里面加入下面的代码就可以关闭子窗体了:}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
{2.只运行一个子窗体}
procedure TForm1.ButtonClick(Sender: TObject);
begin
try
if application.MainForm.MDIChildCount>0 then
activemdichild.Close;
finally
TForm2.Create(Self);
end;
end;
{3.不同的软件有不同的设计风格,也不要基于一种开发模式,关键要学会创新}