怎么判断屏幕的分辨率,然后根据屏幕的大小让窗口全屏啊?(20分)

  • 主题发起人 主题发起人 cavalise
  • 开始时间 开始时间
C

cavalise

Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢了 .
 
Screen.Height<br>Screen.Width
 
让窗口根据屏幕大小全屏显示,可以用:Form1.Align:= alClient;
 
创建应用程序时,总是依监视器的分辨率进行的,其缺点是:假如在较高分辨率下设计应用程序,它可能大于用户的有效屏幕大小,在用户使用程序时,就不能显示出全部窗体内容,给用户带来不便。一种简单的解决办法是:在程序运行时,让Delphi自动添加滚动条来解决这个问题。<br><br>但是,使用Delphi的自动调整比例过程将产生更加专业的结果。在运行时,Delphi获得系统的屏幕分辨率,并将结果保存在应用程序的Screen对象的PixelsPerInch属性中,然后,使用这个属性的值将窗体调整到当前分辨率。<br><br>记住,为了有效地使用这项技术,需要设置窗体的Scaled属性为真,并且只用TrueType字体,如果开发程序时,使用了Windows的小字体,应将窗体的AutoScroll属性设置为假(FALSE)。
 
采用WINDOWS API:<br>EnumDisplaySettings(NULL,0,&amp;dis);<br>dis:DEVMODE,<br><br>DEVMODE结构中的dis.dmPelsWidth;<br>dis.dmPelsHeight;既是分辨率。<br><br>然后把窗体的长度和宽度根据分辨率变化而变化。
 
frmMain.WindowState:=wsMinimized;
 
1. 主窗口的 Align 设成 alClient;<br>2. 使用 API 函数 SystemParametersInfo,参数为 SPI_GETWORKAREA<br>&nbsp; &nbsp;可截取 WM_WININICHANGE 消息,适应工作区的改变。
 
接受答案了.
 
后退
顶部