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