delphi 右上角按钮关闭窗口时打开另一窗口

来源：百度知道编辑：UC知道时间：2024/06/25 19:25:22

就是非主窗口“form2"中点击右上角的“x"状按钮关闭窗口时不是单纯关掉窗口。而是显示之前显示本窗口时隐藏掉的窗口（form1）。之前打开本窗口我用的语句是：form1.Visible:=false; form2.show;或者有方法禁掉那个”x”按键，但标题栏依然在。

在 form2 的 onclosequery 事件中写入以下代码

form1.show;
form2.hide;

Form1的Button1单击事件:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Visible := false;
form2.ShowModal;
end;

Form2的关闭窗体事件:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Visible := true;
end;

去掉窗体的关闭键可以将Form的BorderIcons属性的biSystemMenu的值改成False