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 阿里云发送短信的Delphi单元

Delphi 从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）

Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles？

Delphi 分离网址链接最后一层文件目录

Delphi xe7实现手机上获取wifi信息的程序

Delphi判断某个程序是否已经启动

Delphi 建立access数据库

Delphi 异或加解密

Delphi 输出用空格对齐字符串的函数

Delphi 改变进程优先级

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

转载请注明出处：木庄网络博客 » Delphi FullScreen全屏