立即给分100：没有标题栏的窗体无法全屏幕，如何解决？

Question

我做了一个窗体，需要在borderstyle设置为bsNone，以不显示标题栏，但这样无法令窗体全屏幕以覆盖整个screen。请问各位大侠如何解决？？立即送分~~~~~~~~

Answer 1

top:=0;
left:=0;
width:=screen.width;
height;=screen.height

Answer 2

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

Answer 3

form内加入一个函数： 
procedure CreateParams(var Params: TCreateParams); override; 
下面是代码： 
procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
inherited; 
params.X:=0; 
params.Y:=0; 
params.Width:=Screen.Width; 
params.Height:=Screen.Height; 
Params.Style:=(Params.Style and not WS_THICKFRAME) or WS_DLGFRAME ; 
end;

Answer 4

当然你也可以使用注册表来操作把任务栏HIDE掉

Answer 5

在Tform1.OnCreate(sender:tobject)
begin
  form1.with:=screen.with;
  form1.height:=screen.height;
end;
就可以了

Answer 6

隐藏任务栏
wnd:=findwindow(″shell_traywnd″,″″)——捕捉任务栏窗口; 　　SetWindowpos(wnd,0,0,0,0,0,128)——隐藏任务栏窗口； 

Answer 7

回复人： GoldShield(小花☆正直人) ( ) 信誉：106 
楼上的方法可以全屏,但是任务栏依然会出现＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
非也，~~~
form1.WindowState:=wsMaximized;　//不出現任務欄，可以全屏幕顯示...

Answer 8

如果是用C，那么有一种风格是WS_EX_APPWINDOW，WS_POPUP风格的，不知道DELPH里面有没有这种风格的设置……我写全屏的东西，都是用那种属性的，然后设置窗口把屏幕盖住，就可以了

Answer 9

Sorry.是我错了.
form1.WindowState:=wsMaximized;不会出现任务栏!

Answer 10

SetWindowLong( Handle,
     GWL_STYLE,
     GetWindowLong( Handle, GWL_STYLE )
     and not WS_CAPTION ) ;
   ClientHeight := Screen.Height;
   ClientWidth := Screen.Width;
   Left := 0;
   Top := 0;

Answer 11

给窗体设一个Ctrl+Enter的快捷键，使之最大化不也挺好！