SetFormFullScreen()窗体全屏显示

{让窗体全屏显示}
//SetFormFullScreen(Form1);
procedure SetFormFullScreen(Form:TForm);
begin
  Form.BorderStyle:=bsNone;
  Form.WindowState:=wsMaximized;
  Form.Color:=clBlack;
end;