delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)

暮山紫

delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下

复制代码 代码如下:

procedure TMainFrm.FormCreate(Sender: TObject);
begin
with MainFrm do 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;
end;

您可能感兴趣的文章:

• c#制作屏幕保护程序步骤(字幕屏保)
• Android截屏保存png图片的实例代码
• android禁止锁屏保持常亮(示例代码)
• js 模拟气泡屏保效果代码
• serv-u与屏保导致serv-u服务器经常停止无法连接的解决方法
• 修改屏保文件法
• Win 2003系统也玩图片收藏屏保
• C#制作简易的屏保