procedure TForm2.FormCreate(Sender: TObject);begin perform(WM_SIZE,SIZE_MAXIMIZED,0);end;
http://blog.csdn.net/fkedwgwy/article/details/4170099