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 windows消息大全

Delphi检查是否在64位windows环境中运行？

Delphi removeinvalid截取字符串某个字符前面的字符

Delphi图片上写水印文字函数

Delphi 拷贝文件时有进度显示

Delphi richedit1 设置字体

Delphi isthisleapyear 判断闰年

Delphi for 循环 downto用法

Delphi10.3 构造生成输出json数据

Delphi 如何从html格式的字符串中提取纯文本？

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

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