delphi程序全屏顯示無標(biāo)題欄覆蓋整個屏幕(適合屏保)
更新時間：2013年06月28日 16:55:44 作者：
delphi 簡單實現(xiàn)程序全屏顯示無標(biāo)題欄，覆蓋整個屏幕，這個在做工控機(jī)或屏保時有用的，具體代碼如下，感興趣的朋友可以參考下哈
delphi 程序全屏顯示無標(biāo)題欄，覆蓋整個屏幕，這個在做工控機(jī)或屏保時有用的，所以記下
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;
復(fù)制代碼 代碼如下:
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;
相關(guān)文章
這篇文章主要介紹了Delphi實現(xiàn)毫秒級別的倒計時實例代碼,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫點的方法,需要的朋友可以參考下2014-07-07
delphi實現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法
這篇文章主要介紹了delphi實現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法,通過簡單的自定義函數(shù)調(diào)用系統(tǒng)自帶的changefileext及SaveToFile等方法來實現(xiàn)格式轉(zhuǎn)換功能,是非常實用的技巧,需要的朋友可以參考下2014-12-12
今天小編就為大家分享一篇delphi 字符串處理中的怪異現(xiàn)象與處理方式，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2020-02-02
Delphi用TActionList實現(xiàn)下載文件的方法
這篇文章主要介紹了Delphi用TActionList實現(xiàn)下載文件的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi 常見文件處理及注冊表文件的使用實例的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi 調(diào)用外部程序并阻塞到外部程序中的相關(guān)知識，本文給大家介紹的非常詳細(xì)，具有一定的參考借鑒價值,需要的朋友可以參考下2019-09-09
Windows API GetLastError()函數(shù)返回值含義解釋
這篇文章主要介紹了Windows API GetLastError()函數(shù)返回值含義解釋,本文羅列了所有錯誤代碼及中文注釋,需要的朋友可以參考下2015-05-05
Delphi 在窗體上創(chuàng)建自己光標(biāo)的實例
這篇文章主要介紹了Delphi 在窗體上創(chuàng)建自己光標(biāo)的實例的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
在Delphi中沒有直接正弦曲線的函數(shù)。但是在科學(xué)研究中，正弦曲線的應(yīng)用是非常廣泛的，本實例介紹如何繪制正弦曲線。2008-03-03