我做了个程序,但想让这个程序最大化!(就是要全屏显示,连开始菜单也覆盖掉,也就是真正的全屏),该怎么做??

Question

我做了个程序,但想让这个程序最大化!(就是要全屏显示,连开始菜单也覆盖掉,也就是真正的全屏),该怎么做??而且我不想让它按右上角的关闭键就能关闭.多谢了!!!

Answer 1

设置窗体属性：WindwoState 属性一般设为 wsMaximized，使窗体覆 
盖整个屏幕；BorderStyle 属性设为 bsNone，使窗体无边框、标题；
FormStyle 属性设为 fsStayOnTop，使窗体总是保持在屏幕最上面。 

Answer 2

Tform1.onclosequery()  //禁止窗体关闭
begin
  canclose:=false;
end;

Answer 3

public
    procedure CreateParams(var Params: TCreateParams); override;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or ws_Popup or WS_MAXIMIZE ) xor ws_Caption;
end;重载CreateParams方法来实现.

Answer 4

BorderStyle 属性设为 bsNone，窗体无边框、标题

Answer 5

1+2楼 = 正解，问题是，这样的程序要怎么关闭啊？ &_&

Answer 6

加个BUTTON   CLOSE就行呗...

Answer 7

楼上的忒强了吧？哈哈，不过，没用啊，用户一按 “windows”建，菜单又出来了

Answer 8

如果是9x 可以参考以下代码来做屏蔽/program small; 
uses 
  WinProcs; {$R *.RES} var 
   Dummy : integer; begin 
  Dummy := 0; 
  {Disable ALT-TAB} 
  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); 
  {Disable CTRL-ALT-DEL} 
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); 
end.