procedure TForm1.sadfsadf1Click(Sender: TObject);
begin
 Application.CreateForm(TForm2,Form2);
 Form2.bsBusinessSkinForm1.WindowState:= wsMaximized;
 Form2.Show;
end;
-----------------------------------------------
Form1为主窗口,FormStyle:=fsMDIForm,Form2的FormStyle:=fsMDIChild;
如不加 Form2.bsBusinessSkinForm1.WindowState:= wsMaximized;而把
Form2.WindowState:=wsMaximized;最大化效果不是很理想,加上 Form2.bsBusinessSkinForm1.WindowState:= wsMaximized;此句后Form1的Captio会多增加几个同样的字符?有没有更好的办法去掉这几个字符?如果用Form1.Caption:='*****'就没必要回答啦。