在Pannel中嵌入一個窗體

procedure TForm1.FormShow(Sender: TObject);
var
  frmHello: TfrmSayHello;
begin
  frmHello := TfrmSayHello.Create(Self); //建立SayHello窗體
  frmHello.BorderStyle := bsNone;        //去掉窗體右上角的按鈕
  frmHello.Parent := Panel1;             //將Panel1設為窗體的Parent
  frmHello.Top := 0;
  frmHello.Left := 0;
  frmHello.Align := alClient;            //撐滿Panel
  frmHello.Visible := True;              //顯示窗體
end;