如可让一个系统所在窗体最小化？找速达财务软件试用版

财务软件版1楼: 我开发一个客户关系管理系统（主窗体和子窗体都是fsNormal窗体），用以下语句运行子社窗体：Application.CreateForm(TFbranchinfo,Fbranchinfo);Fbranchinfo.ShowModal;Fbranchinfo.Free;但当打开子窗体后，不能整个系统最小化，如整个系统所有窗口最小化，如何做？

2楼: fswindowsmin
你讲的不是很明白如速达财务软件试用版

3楼: Application.CreateForm(TFbranchinfo,Fbranchinfo);Fbranchinfo.Show;Fbranchinfo.Free;
~~~~~~~~~~~~~~~~~

4楼: 文字,怎麽變了樣子

你用的是showmodal,模態窗體,這種窗體是最前的,你可以在窗體加個按鈕( Application.Minimize;),最小化應用程式,或者改用show方法.

5楼: Win+D

6楼: 在我这里用show根本打不开子窗体？？

财务软件版7楼: 你下面還有一句free
剛顯示,你就釋放了

8楼: Fbranchinfo.windowstate:=wsminimized;

Free是对的,只是从内存中释放出来,窗体仍在.

9楼: action:=cafree;
frmcgbddpeijian:=nil;
frmclose(frmcgbddpeijian);
procedure Frmclose(Frmx:TForm);
begin
if mainform.MDIChildCount-1<> 0 then
begin
mainenable(mainform);
end
else
begin
mainnotenable(mainform);
end;
if savecon=＇＇True＇＇ then
begin
if MessageDlg(＇＇是否保存？＇＇,mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
queryupdate(querya);
end;
end;
end;