delphi子窗口用close不能关闭！！为神马

Posted 2023-05-02

两个单元，结构简单。
unit1父窗口，点击button进入子窗口，其中子窗口去掉了标题栏并设置位置。
Unit2子窗口，想实现点击button将子窗口关掉，显示父窗口背景。编译能通过，可是运行出错，就是超出什么的。用free，hide没反映。
谁能告诉我为神马？？
unit Unit1;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
end;
implementation
uses Unit2;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with TForm2.Create(Application) do
begin
Left := 0;
top := 50;
show;
end;end;end.
··········································································
unit Unit2;
type
TMDIForm = class(TForm)
procedure CreateParams(var Params: TCreateParams);override;
end;
TForm2 = class(TMDIForm)
Button2: TButton;
procedure Button2Click(Sender: TObject);
end;
procedure TMDIForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
params.Style:= params.Style and (not WS_CAPTION);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;end;end.
补充一点：我的子窗口类定义了CreateParams重载，把窗口的叉叉去掉了，只能放一个button上去，点击button把窗口关掉。
onclose事件我加cafree了，可是还是不行？？FormDestroy也试过加nill语句，也不行。。。。

知道原因了。。。你写的是Form2.Close
而实际上，你的窗体是动态创建的，名称不是Form2。
所以，你应该写：self.Close;
或是直接写Close就可以了。追问

没反映，我就是直接这么写的？两个都试了
procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;

参考技术A 把你上面的代码测试了一下，正如上面这位仁兄说的，直接写 Close 是可以关闭的，看来你的问题不是出现在上述的代码中。这个问题昨天就看到你问过一次了，并且还看到了你另外一个问题，关于所有窗口统一大小位置的问题。感觉你的问题有点复杂，仅凭你发的这些代码片段，估计你很难得到答案的。

2016-11-6坚持学习Day21主窗口关闭时，同步关闭它的子窗口

本来想用委托实现的。但是又觉得没有必要。

方法如下:

 

  public MainWindow()
        {
            InitializeComponent();

            this.Closing += MainWindow_Closing;
        }

        private void MainWindow_Closing(object sender, System.ComponentModel.CancelEventArgs e)
        {
            foreach (Window w in this.OwnedWindows)
            {
                if (w!=null)
                {
                    w.Close();
                }
            }
            MessageBox.Show("所有子窗口关闭完成。");
        }

        private void Button_Click(object sender, RoutedEventArgs e)
        {
            for (int i = 0; i < 10; i++)
            {
                SubWindow s = new SubWindow("sub window"+i.ToString());
                s.Owner = this;
                s.Show();
            }
         
        }