delphi程序全屏顯示無標題欄覆蓋整個屏幕(適合屏保)
更新時間：2013年06月28日 16:55:44 作者：
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;
復制代碼 代碼如下:
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;
相關文章
有些程序要設置為開機啟動，所以自己寫了個函數方便以后使用，實現比較簡單，感興趣的朋友可以參考下哈2013-06-06
這篇文章主要介紹了Delphi 中內存映射對于大文件的使用的相關資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi用TActionList實現下載文件的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi實現截屏存盤的方法,涉及Delphi圖片操作的相關技巧,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了Delphi實現窗口文字淡入淡出漸變效果,需要的朋友可以參考下2014-07-07
插件管理框架 for Delphi許多軟件采用“插件”（PlugIns）來擴展其功能，比如PhotoShop所支持的各類濾鏡就是插件；我們所熟知的Winamp，也有許多皮膚以及可視效果插件。再有微軟的windows media player，以及QQ，沖浪軟件Opera……采用插件技術的軟件數不勝數，而各個軟件的具體實現方式也是五花八門，各有特點。2008-03-03
這篇文章主要介紹了Delphi 調用外部程序并阻塞到外部程序中的相關知識，本文給大家介紹的非常詳細，具有一定的參考借鑒價值,需要的朋友可以參考下2019-09-09
這篇文章主要介紹了Delphi實現讀取系統(tǒng)時間與日期完整實例,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了delphi 判斷字符串是否為純數字組合,需要的朋友可以參考下2022-12-12
delphi中exit,abort,break,continue的區(qū)別介紹
本文詳細介紹下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的區(qū)別，感興趣的朋友可以參考下哈，希望對你學習跳出有所幫助2013-04-04