模式和非模式对话框

最新推荐文章于 2022-12-23 17:28:58 发布

原创最新推荐文章于 2022-12-23 17:28:58 发布 · 785 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#application #delphi #action

delphi相关专栏收录该内容

32 篇文章

订阅专栏

Delphi的模式窗体两种方式:
方式1、
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
try
    if Form2.ShowModal=mrok then
     showmessage('ss');
     {其它操作}
finally
    Form2.Free;
    Form2:=nil;
end;
end;
方式2、
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(nil);
try
    Form2.ShowModal;
finally
    Form2.Free;
    Form2:=nil;
end;
end;

非模式窗体
procedure TForm1.Button1Click(Sender: TObject);
begin
if not assigned(Form2) then
Form2 := TForm2.Create(Application);
Form2.show;
end;
注：如果非模式窗体的属主对是nil不是Application，也就
说如下
procedure TForm1.Button1Click(Sender: TObject);
begin
if not assigned(Form2) then
Form2 := TForm2.Create(nil);
Form2.show;
end;
那么这种窗体需要手工释放窗体内存：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
不仅是手工释放窗体内存，还要将窗体变量Form2的指针置为空：
procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2:=nil;
end;