如何使窗体打开的时候象word那样最大化,并且占满整个桌面(任务栏除外)?
并且不论显示器的分辨率大小!
并且不论显示器的分辨率大小!
解决方案 »
- tms中的advstringgrid控件如何设置下拉列表
- 一个关于Qreport报表字段累加的问题!!!!
- 继续提问,这个问题怎么解决。
- 如何取得table的状态值
- 新手上路:关于FastReport的主从报表问题请教,急急急,高分送!
- 请问如何保存webbrowser控件下载下来的网页的代码?
- 倾家荡产,求进销存系统框架模形,大师们快看看吧!!!!!
- 用BDE不能执行存储过程吗?
- 以下问题有没有人回答?
- 如何通过某个window(Form)的Handle取得其中活动控件的Handle?
- 【】【】【】【】【】怎么得到一个菜单窗口的屏幕位置
- 关于用adoquery存储blob型的问题,请高手指点!
const
ScreenHeight: integer = 1024;
ScreenWidth: integer = 768;
var
x, y: LongInt;
begin
self.scaled := true;
//窗体可以缩放
x := getSystemMetrics(SM_CXSCREEN);
y := getSystemMetrics(SM_CYSCREEN);
//程序运行时获取目标机器的屏幕分辨率
if (x <> ScreenHeight) or (y <> ScreenWidth) then
//目标机器的屏幕分辨率与作者机器的屏幕分辨率不同
begin
self.height := self.height*x DIV ScreenHeight;
self.width := self.width*y DIV ScreenWidth;
scaleBy(x,ScreenHeight);
//调用窗体的scaleBy函数,将窗体大小变为初始大小的x/ ScreenHeight倍。
//这是本程序的关键技巧,同时缩放的包括窗体上各组件和字体。
end;