窗口最大化

  { Position form }   

  Top := 0 ;

  Left := 0 ;

  { Go full screen }

  BorderStyle := bsNone ;

  WindowState  := wsmaximized;

  ClientWidth  := Screen.Width ;

  ClientHeight := Screen.Height;

  Refresh;

  SetForegroundWindow(Handle) ;

  SetActiveWindow(Application.Handle) ;