請問我如何可以在 Form1 底下有一個 Panel ,然後所有開的其他的Form (如:FORM2) 只顯示在 panel 範圍之中? 我有試過如下的方式,但是RUN 之後程式會HOLD不能動 ? procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2,Form2); form2.Parent:=Form1.Panel1; Form2.Align:=alClient; Form2.ShowModal; Form2.Free; end;

begin with TForm2.create(self) do begin parent:=Form1.panel1; align:=alClient; show; setfocus; end; end;

begin with TForm2.create(self) do begin parent:=Form1.panel1; align:=alClient; show; setfocus; end; end;

參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25344

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TForm2,Form2);
  form2.Parent:=Form1.Panel1;
  Form2.BorderStyle:=bsNone;
  Form2.Align:=alClient;
  Form2.show;
//  Form2.ShowModal;
//  Form2.Free;
end;

另外在 form2之onclose加上action:=cafree;