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

[win2000pega]

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

[simonhehe]

implementation

uses 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;

[shuihan20e]

1楼的啥意思

[youcunzai]

   
    Form2.Parent := panel1; 
    Form2.BorderStyle := bsNone;
 

主要这2个 就可以了;
碰个 怎么连这个也不知道?

[老之]

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

[JeffChung]

[Quote=引用 4 楼 liangqingzhi 的回复:]
在Form的OnEndDock事件里面写：
Form.DragMode := dmManual;
[/Quote]

[hpf1908100]

顶一个