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è)置開(kāi)機(jī)自動(dòng)啟動(dòng)函數(shù)具體實(shí)現(xiàn)
有些程序要設(shè)置為開(kāi)機(jī)啟動(dòng),所以自己寫(xiě)了個(gè)函數(shù)方便以后使用,實(shí)現(xiàn)比較簡(jiǎn)單,感興趣的朋友可以參考下哈2013-06-06Delphi 中內(nèi)存映射對(duì)于大文件的使用
這篇文章主要介紹了Delphi 中內(nèi)存映射對(duì)于大文件的使用的相關(guān)資料,希望通過(guò)本文能幫助到大家,需要的朋友可以參考下2017-09-09Delphi用TActionList實(shí)現(xiàn)下載文件的方法
這篇文章主要介紹了Delphi用TActionList實(shí)現(xiàn)下載文件的方法,需要的朋友可以參考下2014-07-07Delphi實(shí)現(xiàn)截屏存盤(pán)的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)截屏存盤(pán)的方法,涉及Delphi圖片操作的相關(guān)技巧,需要的朋友可以參考下2015-05-05Delphi實(shí)現(xiàn)窗口文字淡入淡出漸變效果的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)窗口文字淡入淡出漸變效果,需要的朋友可以參考下2014-07-07Delphi實(shí)現(xiàn)讀取系統(tǒng)時(shí)間與日期完整實(shí)例
這篇文章主要介紹了Delphi實(shí)現(xiàn)讀取系統(tǒng)時(shí)間與日期完整實(shí)例,需要的朋友可以參考下2014-07-07delphi中exit,abort,break,continue的區(qū)別介紹
本文詳細(xì)介紹下delphi中表示跳出的有break,continue, exit,abort, halt, runerror的區(qū)別,感興趣的朋友可以參考下哈,希望對(duì)你學(xué)習(xí)跳出有所幫助2013-04-04