OldHawk

菜地一块,欢迎拍砖
随笔 - 205, 文章 - 0, 评论 - 277, 阅读 - 56万
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
< 2025年1月 >
29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 1
2 3 4 5 6 7 8

Delphi窗体全屏显示

Posted on   OldHawk  阅读(3196)  评论(0编辑  收藏  举报

BorderStyle := bsNone;
WindowState := wsMaximized;
//======================
BorderStyle := bsNone;
Left := 0;
Top := 0;
Width := Screen.Width;
Height := Screen.Height;
//==============================
BorderStyle:=bsNone;
SetBounds(0,0,Screen.Width,Screen.Height);

点击右上角即可分享
微信分享提示