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 结构体的使用、tbitmap和tmemorystream的转换

Delphi listbox1列表随机打乱

Delphi 使用管道进程间通讯

Delphi win32_networkadapter 网卡 参数说明

Delphi idhttp解决获取utf-8网页中文乱码问题

Delphi webbrowser1 保存文档为 .html

简单的rs232c/ttl电平转换和串口取电

wmi远程访问问题解决方法

Delphi如何判断系统是否安装了flash插件

Delphi int64：是Delphi中最大的整数，64位有符号整数

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

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