如何把MDI里的子窗体做成没有边框（标题）？

[YssD]

我想把MDI界面里的子窗体做成没有边框的、标题，如何实现呢？

[oldhawk]

用如下代码
type
TForm2 = class(TForm)
{ other stuff above }
procedure CreateParams(var Params: TCreateParams); override;
{ other stuff below }
end;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style and not WS_OVERLAPPEDWINDOW or WS_BORDER
end;

[hp1200]

up