Delphi FullScreen全屏

本文整理自网络，侵删。

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

相关阅读 >>

Delphi格式化输出函数

Delphixe win7、mssql2000、udl

Delphi窗体固定在桌面上

Delphi 实现文件防删除非亢占(非hook)

Delphi中一段可以判断网络连接的代码

Delphi获取闲置时间

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi decodeutf8str解决系统自带utf8解码缺陷

Delphi 获取临时文件夹路径

Delphi richedit的内容保存为图片

更多相关阅读请进入《Delphi》频道 >>