delphi窗体建立

来源：百度知道 编辑：UC知道 时间：2024/06/24 07:01:09
procedure TForm1.BtnClick(Sender: TObject);
var theform:TForm;
begin
theform:=TForm2.Create(Self);
theform.show;
end;

我从 form1 里面创建了很多和form2一样的窗体。那么我要从form1里面关闭这些窗体要怎麽写？不是直接点他们的X关闭

procedure TForm1.BtnClick(Sender: TObject);
begin
TheForm.Close;
end;

TheForm要声明成全局变量.

procedure TForm1.BtnClick(Sender: TObject);
var theform:array [0..9] of TForm;
i:integer;
begin
//开10个窗口
for i:=0 to 9 do begin
theform[i]:=TForm2.Create(Self);
theform[i].show;
end;
// 下面是关闭代码

for i:=0 to 9 do begin
theform[i].close;
theform[i].free;
end;

end;

MDI?
创建窗体的时候是
procedure Tmainfrm.act_mlfxExecute(Sender: TObject);
begin
if mlfxfrm=nil then
Application.CreateForm(Tmlfxfrm, mlfxfrm);
mlfxfrm.WindowState := wsMaximized;
mlfxfrm.BringToFront;
end;

相关生成的窗体
procedure Tmlfxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure Tmlfxfrm.FormDestroy(Sender: TObject);
begin
mlfxfrm:=nil;
end;

关闭就是close就可以了。