如何在打开新的子窗口前,关闭已打开的所有子窗口? thank you much.[5人参与]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要： public datetime calculateshippingdate(string customerid,string cartid); { random x=new random(); double myrandom=(double)x.next(0,3); return datetime.now.adddays(myrandom); } 这是.cs文件里的一个函数，编译的时......

·[求助]dec-c++,vc6.0的优化问题 »显示摘要«

摘要： #include <iostream> using namespace std; int main() { cout<<"hello world!"; cin.get(); return 0; } 一个简单的hello world,编译后 dec-c++4.9.8.0有438k; vc6.0有508k; //有人说优化后只有40k vs.net2......

如何关闭打开的所有子窗口

如何在打开新的子窗口前,关闭已打开的所有子窗口?

thank you much.

NO.1 作者： sxzz

var i : Integer
For i = (Me.MdiChildren.Length - 1) To 0 Step -1
Me.MdiChildren(i).Close()
Next i

NO.2 作者： ljmanage

var i : Integer

For i := 0 to MainForm.MDIChildCount-1 do
if MainForm.MDIChildren[i].Active then
MainForm.MDIChildren[i].Close;

NO.3 作者： FrameSniper

完全同意楼上的，但补充一点，关闭的时候最好使用

FreeAndNil(Self.MDIChilden[I]);

NO.4 作者： hch_45

For i := 0 to Form1.MDIChildCount-1 do
if Form1.MDIChildren[i].Active then
form1.MDIChildren[I].Close;

在每个MDI窗口的加入
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Form1 := nil; //注意这里
end;

NO.5 作者： DWGZ

呵呵， FreeAndNil 需要一个确定变量名
没必要用FreeAndNil
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Close;

另外在每个子窗体的OnClsoe里
Action := caFree
就OK了

·两个本地接口的ejb分别在不同的jar上，怎样才能在一个ejb中调用另一个ejb呢 »显示摘要«

摘要：两个本地接口的ejb分别在不同的jar上，怎样才能在一个ejb中调用另一个ejb呢？ ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：