delphi 程序全屏显示无标题栏,覆盖整个屏幕

delphi 程序全屏显示无标题栏,覆盖整个屏幕,这个在做工控机或屏保时有用的,所以记下

procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1 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;

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容

  • 事件源对象 event.srcElement.tagName event.srcElement.type 捕获释放...
    孤魂草阅读 910评论 0 0
  • 我这一辈子四十岁是一道分水岭。 四十岁之前感觉一切都充满了朝气和活力,眼前的一切和心中所想都是兴冲冲的。人...
    空灵蟋蟀阅读 286评论 0 0
  • 在我刚学会写文章的时候,我就开始谋划着写一篇关于父亲的文章。多年过去了,我的文章并未获得过多的赞赏,而这篇文章也一...
    道帅阅读 391评论 0 1
  • 最浪漫的事就是看到科比完美的谢幕我们激动的拥抱在一起无关感情只是发自内心的为他开心!
    比翼鸟阅读 150评论 0 0