怎么让窗口全屏显示？帮帮我吧？

Question

怎么让窗口全屏显示呢？是那种把任务栏也给掩盖住的那种，应该设置窗体的什么属性吗？谢谢！

Answer 1

form1.width:=screen.width
form1.heigth:=screen.heigth

Answer 2

Bordericons仅使bssystemmenu:=true,其它false,
clientheight、clientwidth设为比分辨率大些的值。

Answer 3

把BorderStyle := bsNone和 
  WindowState := wsMaximized就可以了

Answer 4

先隐藏任务栏
var
  wndHandle: THandle;
begin
  WndHandle := FindWindow('Shell_TrayWnd',nil);
  ShowWindow(WndHandle,SW_HIDE);
end;
然后WindowState := wsMaximized就可以了

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:= bsNone;
  Height := screen.height;
  Width := screen.width;
  Position :=poScreenCenter;
  FormStyle:= fsStayOnTop;    //这个一定要
end;

Answer 6

BorderStyle := bsNone
WindowState := wsMaximized这样就OK了

Answer 7

设置窗体的
BorderStyle 属性为None 
WindowState属性为Maximized

Answer 8

form1.width:=screen.width
form1.heigth:=screen.heigthBorderStyle 属性为None 
WindowState属性为Maximized  BorderStyle:= bsNone;
  Height := screen.height;
  Width := screen.width;
  Position :=poScreenCenter;
  FormStyle:= fsStayOnTop;    //这个一定要
把BorderStyle := bsNone和 
  WindowState := wsMaximized就可以了
以上任一种均可改变窗体大小！