如何使窗口全屏显示?

Question

我想让 我的窗口全屏显示！
如何做
另外 我想 让 双击 窗口的蓝条 而不改变 窗口状态 又如何 做！我只是想让我的系统在没有关闭的情况下 独占 屏幕 直至退出
请高手给个指点！

Answer 1

设置两个属性：
1、windowstate = wsMaximized
2、Borderlcons下面的分属性都设为false
(bisystemmenu,biminimize,bimaximize,bihelp)

Answer 2

调用SetWindowPos设置hWndInsertAfter为HWND_TOPMOSTBOOL SetWindowPos(
  HWND hWnd,             // handle to window
  HWND hWndInsertAfter,  // placement-order handle
  int X,                 // horizontal position
  int Y,                 // vertical position
  int cx,                // width
  int cy,                // height
  UINT uFlags            // window-positioning flags
);

Answer 3

把窗体的BorderStyle设置为bsDialog，
并把WindowState设置为wsMaximized

Answer 4

把窗体的BorderStyle设置为bsDialog，
并把WindowState设置为wsMaximized
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
  public
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
 {$R *.DFM}
procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  with Message.MinMaxInfo^ do
    begin
      ptMaxSize.X := screen.width; {最大化时宽度}
      ptMaxSize.Y := screen.Height; {最大化时高度}
      ptMaxPosition.X := screen.width; {最大化时左上角横坐标}
      ptMaxPosition.Y := screen.height; {最大化时左上角纵坐标}
    end;
  Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
  inherited;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.FormStyle :=fsStayOnTop;
  Self.Position :=poscreencenter;
  Self.BorderStyle:=bsDialog;
  Self.Width :=Screen.Width ;
  Self.Height :=Screen.Height;
end;end.

Answer 5

上回贴的:并把WindowState设置为wsMaximized
是楼主的第一问

Answer 6

一开始就最大化
把WindowState设置为wsMaximized
再把Borderlcons下面的biminimize,bimaximize设为False;
或都通过楼上几位兄弟的设置