如何让一个窗体保持在最底层？

Question

在MDI多窗口中，如何让一个窗体保持在最底层？

Answer 1

//try
procedure TForm1.FormShow(Sender: TObject);
begin
  Windows.SetParent(Form2.Handle, Handle);
end;

Answer 2

type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
     procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.FormActivate(Sender: TObject);
begin
  SendToBack;
end;procedure TForm2.WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown);
begin
  inherited;
  SendToBack;
end;