Question

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

两个单元，结构简单。
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语句，也不行。。。。

Answer 1

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

追问

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

Answer 2

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