怎样才能把窗体全屏幕,!

怎样才能把窗体真正的全屏幕,不能有状态栏显示呀!

解决方案 »

  1.   

    窗口属性：
    bodestyle:=bsnone;
    windowstate:=wsMaximized;
      

  2.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    form1.BorderStyle:=bsNone;
    form1.WindowState:=wsMaximized;
    end;
      

  3.   

    BorderStyle := bsNone;
    FormStyle := fsStayOnTop;
    WindowState := wsMaximized;
      

  4.   

    设置一下form属性
    BorderStyle bsSingle
    WindowState wsMinimized
      

  5.   

    procedure TForm_Main.FormCreate(Sender: TObject);
    begin
            Resizing(wsMaximized);
    end;
      

  6.   

    想任务栏不显示,你可以隐藏工具栏啊procedure hideTaskbar; //隐藏var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); End;