delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)
delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 <BR><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code20066"> <BR>procedure TMainFrm.FormCreate(Sender: TObject); <BR>begin <BR>with MainFrm do begin <BR>{ Position form } <BR>Top := 0 ; <BR>Left := 0 ; <BR>{ Go full screen} <BR>BorderStyle := bsNone ; <BR>WindowState := wsmaximized; <BR>ClientWidth := Screen.Width ; <BR>ClientHeight := Screen.Height; <BR>Refresh; <BR>SetForegroundWindow(Handle) ; <BR>SetActiveWindow(Application.Handle) ; <BR>end; <BR>end; <BR></div><div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>c#制作屏幕保护程序步骤(字幕屏保)</li><li>Android截屏保存png图片的实例代码</li><li>android禁止锁屏保持常亮(示例代码)</li><li>js 模拟气泡屏保效果代码</li><li>serv-u与屏保导致serv-u服务器经常停止无法连接的解决方法</li><li>修改屏保文件法</li><li>Win 2003系统也玩图片收藏屏保</li><li>C#制作简易的屏保</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]