delphi 程序全屏显示无标题栏,覆盖整个屏幕
2016-11-07 09:29
246 查看
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;
相关文章推荐
- delphi 程序全屏显示无标题栏,覆盖整个屏幕
- delphi程序全屏显示无标题栏覆盖整个屏幕
- delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)
- 屏幕类,用于全屏程序&显示任务栏
- Android中设置程序全屏运行,即不显示程序标题
- 程序中对屏幕显示模式的直接控制 (写于5年前,现在放在这里)
- VC++实现单文档程序的全屏显示及恢复
- VC++实现单文档程序的全屏显示及恢复
- 设置全屏显示的S60程序
- 我的程序怎么在屏幕显示不了读入的数据?
- 我的程序怎么在屏幕显示不了读入的数据?
- 使基于对话框的程序全屏显示
- Java中如何使窗口无标题栏并全屏幕显示
- 一个实用的Delphi屏幕拷贝程序的设计
- MFC框架程序中全屏显示特性的实现
- 设置全屏显示的S60程序--
- 就是左边是一个FRAME,右边也是一个FRAME,两个之间有分隔线,在分隔线上可以设一个小图标,一点击左边的FRAME就缩进去了,整个屏幕都显示右边的那个FRAME
- 在启动Windows CE时,隐藏“开始”菜单,并全屏显示Internet Explorer程序
- Delphi for PHP的汉字显示及程序发布
- VC++实现程序全屏显示