Delphi7 实现窗体全屏方法
2016-06-17 18:47
281 查看
设置要全屏的窗体的ALign 属性为ALcLient ,此法最快。当然对我来说,我并不知道这个,所以走了远路,等后来在实现窗体禁止移动的时候
才想到了这里,汗。注意:这种全屏方式不会挡了系统的任务栏。。。。同时可以防止窗体移动,
方法二:
用代码控制。
在窗体的创建事件中,
此方法运行后窗体也可以移动。
影响美观。应该再加入禁止窗体移动的代码)写入
var
TrayWnd:
HWnd;
//
任务栏句柄
Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//
得到任务栏句柄
GetWindowRect(TrayWnd, Rec);
//
获取任务栏尺寸
mainfm .Left :=0;
mainfm .top:=0;
mainfm .Width :=Screen .Width
mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top)
end;
这样也实现了 全屏不挡了任务栏。 方法三:(全屏要挡住任务栏)
设置窗体的windowState 为wsMaxinized ,汗。。
才想到了这里,汗。注意:这种全屏方式不会挡了系统的任务栏。。。。同时可以防止窗体移动,
方法二:
用代码控制。
在窗体的创建事件中,
此方法运行后窗体也可以移动。
影响美观。应该再加入禁止窗体移动的代码)写入
var
TrayWnd:
HWnd;
//
任务栏句柄
Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//
得到任务栏句柄
GetWindowRect(TrayWnd, Rec);
//
获取任务栏尺寸
mainfm .Left :=0;
mainfm .top:=0;
mainfm .Width :=Screen .Width
mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top)
end;
这样也实现了 全屏不挡了任务栏。 方法三:(全屏要挡住任务栏)
设置窗体的windowState 为wsMaxinized ,汗。。
相关文章推荐
- delphi创建excel写入数据并创建二维折线图
- Delphi TClientDataset查找定位功能
- Delphi类型转换
- Delphi代码标准文档
- Delphi开发文件枚举小工具
- Delphi之通过崩溃地址找出源代码的出错行
- Delphi 停靠技术的应用1(在一个窗体中停靠另一个窗体)
- Delphi 停靠技术的应用2(窗体之间的相互停靠,引入宿主窗体)
- Delphi 停靠技术的应用3(两个窗体停靠成PageControl样式, 分页停靠)
- Delphi的MDI编程中遇到的一个奇怪问题(值得研究的一个问题)
- 不用注册热键方式在Delphi中实现定义快捷键(又简单又巧妙,但要当前窗体处在激活状态)
- Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)
- 关于Delphi中二维数组的声明和大小调整(对非基本类型数据,小心内存泄漏)
- Delphi中使用TXMLDocument控件应注意的问题
- Delphi中取整函数Round的Bug解决
- 让程序只运行一个实例(Delphi篇)(三种方法,其中使用全局原子的方法比较有意思)
- Delphi中三种方法获取Windows任务栏的高度
- Delphi截获webbrowser中关闭及右键消息处理一例
- Delphi对Excel的所有操作(一)
- Delphi对Excel的所有操作(二)