左部的子窗体的FormStyle设为fsNormal,而不是fsMDIChild: ... FLeftForm := TLeftForm.Create(Self); FLeftForm.FormStyle := fsNormal; InsertControl(FLeftForm); 0AFLeftForm.Align := alLeft; FLeftForm.Visible := True; ... ____ ____ \ p \ / g / \ l \_/ n / \ a o / \ i s / \ n / \_/
上面的代码有问题,下面这段是我试过的: FLeftForm := TLeftForm.Create(Self); FLeftForm.FormStyle := fsNormal; FLeftForm.Parent := self; FLeftForm.Align := alLeft; FLeftForm.Visible := True; ____ ____ \ p \ / g / \ l \_/ n / \ a o / \ i s / \ n / \_/
...
FLeftForm := TLeftForm.Create(Self);
FLeftForm.FormStyle := fsNormal;
InsertControl(FLeftForm);
0AFLeftForm.Align := alLeft;
FLeftForm.Visible := True;
... ____ ____
\ p \ / g /
\ l \_/ n /
\ a o /
\ i s /
\ n /
\_/
FLeftForm := TLeftForm.Create(Self);
FLeftForm.FormStyle := fsNormal;
FLeftForm.Parent := self;
FLeftForm.Align := alLeft;
FLeftForm.Visible := True;
____ ____
\ p \ / g /
\ l \_/ n /
\ a o /
\ i s /
\ n /
\_/