一个简单的问题！怎么样让自己的程序变成全屏的？

Question

请各位大虾帮帮我，怎么样让自己的应用程序的窗口按固定的比例全屏？很急！

Answer 1

TForm1.oncreate(sneder:tobject);
begin
  form1.with:=screen.with;
  form1.height:=screen.height;
end;就可以全屏了；

Answer 2

点中窗体，敲回车键，在窗体属性栏的最后有一个WindowState,把它改为wsMaximized就可以了

Answer 3

如果是主窗体按照楼上的说的就行了，如果是一级子窗体则需设置窗体的formstyle属性为fsMDIChild

Answer 4

WindowState:=wsMaximized   或者点击"最大化"按扭~~~~~~~~~~呵呵~~~窗体上的内容比较难实现你想要的比例, 不过图片可以

Answer 5

有 windows 消息可以处理  WM_MAXMININFO 什么的,机子没装开发工具,查不了, sorry

Answer 6

把主窗体的form的属性WindowState改成wsMaximized 就行了！

Answer 7

谢谢大家给我的帮助，不过，我要的是整体的比例不变呀！可以象WINDOWS的窗口一样的，这样是全屏了，但是其他地方都是空白的呀！

Answer 8

你把窗体内所有控件的anchors属性设置一下那些比例就跟着窗体一起变了.

Answer 9

procedure TForm1.SetTaskBarVisible(Visible: Boolean);   //隐藏任务栏   //在formcreate中调
                                                                //不过在formclose中要把它改回来
var
  wndHandle: THandle;
begin
  wndHandle := FindWindow('Shell_TrayWnd', nil);
  if Visible then
    ShowWindow(wndHandle, SW_RESTORE)
  else
    ShowWindow(wndHandle, SW_HIDE);
end;
在form的create中加入
        case Getsystemmetrics(0) of
           1024:  begin scaleby(128,100); end;
           800:   begin scaleby(100,100); end;
           640:   begin scaleby(100,125); end;
               //自己加吧
         end;
记得给我分。

Answer 10

不好意思！我的意思没有表达清楚！skynew2004() ，我不大看得懂你得后面几句代码，是什么作用？谢谢！

Answer 11

把主窗口的align設為alclient不就好了嗎

Answer 12

Getsystemmetrics(0) 取当前屏幕的分辨率中的第一个数，如1024*768中的1024。scaleby(128,100); 是按比例放大，缩小.
我原来的程序是按800*600设计的,所以要放大。  1024/800   化成  128/100；