delphi 中DMI子窗体如何设置让他不显示高人帮帮忙

来源:百度知道 编辑:UC知道 时间:2024/07/02 10:09:13

把它关闭就行了,关闭的同时把它销毁

举个例子吧

一个工程里有两个窗体
Form1是父窗体 里面有个Button1
procedure TForm1.Button1Click(Sender: TObject);
begin
if Not Assigned(Form2) then
Form2 := TForm2.Create(Nil);
Form2.Show;
end;

form2是子窗体
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := Cafree;
Form2 := Nil;
end;

这样就能关闭了

同时要说明,程序启动的时候如果不要Form2自己打开,就把工程文件里的Form2去掉(看注释)
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);//去掉这一行
Application.Run;
end.