delphi程序全屏显示无标题栏覆盖整个屏幕
2024-09-01 03:34:46
delphi 简单实现程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，具体代码如下，感兴趣的朋友可以参考下哈
delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下
复制代码 代码如下:
procedure TMainFrm.FormCreate(Sender: TObject);
begin
with MainFrm do begin
{ Position form }
Top := 0 ;
Left := 0 ;
{ Go full screen}
BorderStyle := bsNone ;
WindowState := wsmaximized;
ClientWidth := Screen.Width ;
ClientHeight := Screen.Height;
Refresh;
SetForegroundWindow(Handle) ;
SetActiveWindow(Application.Handle) ;
end;
end;
最新文章
- （转载） 利用国内的镜像，加速PIP下载
- T-SQL编程 —— 用户自定义函数(内嵌表值函数)
- JBOSS内存参数详解
- [转]varchar(n),nvarchar(n) 长度、性能、及所占空间分析
- SQLite开发工具
- tomcat docBase 和 path
- linux入侵控制与痕迹清理
- [Ext.Net]TreePanel 异步加载数据
- DeeplabV3+ 命令行不显示miou的解决
- powercli 学习随笔
- Java Script 简介
- 启动eclipse could not create the java Vittual Machine
- Python Argparse模块
- 【转】Appium 优化版
- java程序在windows后台执行的办法
- Class create, device create, device create file【转】
- FSMN结构快速解读
- （转）centos6.5 bind-DNS服务器bind的搭建详解
- 洛谷P3935 Calculating（整除分块）
- ubuntu的文本界面修改字体大小