有关窗体属性问题

Question

我原来编了一个程序，运行时就布满整个屏幕（开始菜单栏也被覆盖了），后来为了调试方便将开始菜单留了出来，问题 是我现在竟然修改不回去 了，郁闷
  我真是大菜鸟，请求帮忙！！！！！

Answer 1

转贴
procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState:=wsNormal;
  left:= 0;
  top:= 0;
  width:=getsystemmetrics(sm_cxscreen);
  height:=getsystemmetrics(sm_cyscreen);
end;
-----------
基本可以实现，不过不能最大化

Answer 2

form.heigh:=screen.heigh
form.width:=screen.width

Answer 3

protected
procedure CreateParams(var Params: TCreateParams); override;procedure CreateParams(var Params: TCreateParams); override;
begin
    inherited;
    Params.Style := WS_POPUP;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  left:= 0;
  top:= 0;
  width:=getsystemmetrics(sm_cxscreen);
  height:=getsystemmetrics(sm_cyscreen);
end;

Answer 4

//可以实现老弟的要求！
procedure TForm1.Button2Click(Sender: TObject);
var
  wndHandle: THandle; //用于存储指定窗口的句柄
  wndClass: array[0..50] of Char; //用于存储类名
begin
  strPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0],nil);
  ShowWindow(wndHandle, SW_Hide); //隐藏Windows任务栏
  top:=0;
  left:=0;
  form1.width:=screen.width;
  form1.height:=screen.height;
  ShowWindow(wndHandle, SW_SHOW); //显示Windows的任务栏
  SetWindowPos(wndHandle, HWND_BOTTOM, form1.top, form1.left, form1.Height , form1.width, SWP_NOMOVE);
end;

Answer 5

说一个简单的方法,只要:修改以下属性:
form1.WindowState-----wsMaximized;
form1.BorderStyle-----bsnone;
按F9试一下吧!或用代码方法实现:
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.WindowState:=wsMaximized;
form1.BorderStyle:=bsnone;
end;

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState:=wsNormal;
  left:= 0;
  top:= 0;
  width:=getsystemmetrics(sm_cxscreen);
  height:=getsystemmetrics(sm_cyscreen);
end;

Answer 7

angelface(§梨花带雨§) 请问一下你那句
    protected
    procedure CreateParams(var Params: TCreateParams); override;
这个应该是自己添加的一个事件吧？
应该写到哪里`？
可能是我写错位置了`运行时总是提示override有问题```？

Answer 8

xiangwangz(<*敝屣荣华 浮云生死 此身何惧*>)  完美解决