delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)
更新时间：2013年06月28日 16:55:44 作者：
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;
复制代码 代码如下:
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;
相关文章
有些程序要设置为开机启动，所以自己写了个函数方便以后使用，实现比较简单，感兴趣的朋友可以参考下哈2013-06-06
这篇文章主要介绍了Delphi 中内存映射对于大文件的使用的相关资料,希望通过本文能帮助到大家，需要的朋友可以参考下2017-09-09
这篇文章主要介绍了Delphi用TActionList实现下载文件的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下2015-05-05
这篇文章主要介绍了Delphi实现窗口文字淡入淡出渐变效果,需要的朋友可以参考下2014-07-07
插件管理框架 for Delphi许多软件采用“插件”（PlugIns）来扩展其功能，比如PhotoShop所支持的各类滤镜就是插件；我们所熟知的Winamp，也有许多皮肤以及可视效果插件。再有微软的windows media player，以及QQ，冲浪软件Opera……采用插件技术的软件数不胜数，而各个软件的具体实现方式也是五花八门，各有特点。2008-03-03
这篇文章主要介绍了Delphi 调用外部程序并阻塞到外部程序中的相关知识，本文给大家介绍的非常详细，具有一定的参考借鉴价值,需要的朋友可以参考下2019-09-09
这篇文章主要介绍了Delphi实现读取系统时间与日期完整实例,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi 判断字符串是否为纯数字组合,需要的朋友可以参考下2022-12-12
delphi中exit,abort,break,continue的区别介绍
本文详细介绍下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的区别，感兴趣的朋友可以参考下哈，希望对你学习跳出有所帮助2013-04-04
最新评论