delphi窗体停靠后，不能拖出窗体

Question

做一个窗体FORM，然后是窗体停靠在panel，如何是窗体停靠后，不能从panel拖出来，并且双击也不能从panel中出来成为单个窗体。

Answer 1

implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  if not assigned(Form2) then
  begin
    Form2 := TForm2.Create(self);
    Form2.Parent := panel1;
    Form2.WindowState := wsMaximized;
    Form2.Color := clRed;
    Form2.BorderStyle := bsNone;
    Form2.Show;
  end
  else
  begin
    Form2.Close;
    Form2 := nil;
  end;
end;

Answer 2

   
    Form2.Parent := panel1; 
    Form2.BorderStyle := bsNone;
 
主要这2个 就可以了;
碰个 怎么连这个也不知道?

Answer 3

在Form的OnEndDock事件里面写：
Form.DragMode := dmManual;