delphi程序全屏顯示無標題欄覆蓋整個屏幕
來源:易賢網 閱讀:1868 次 日期:2014-09-05 14:53:59
溫馨提示:易賢網小編為您整理了“delphi程序全屏顯示無標題欄覆蓋整個屏幕”,方便廣大網友查閱!

delphi 簡單實現(xiàn)程序全屏顯示無標題欄,覆蓋整個屏幕,這個在做工控機或屏保時有用的,具體代碼如下,感興趣的朋友可以參考下哈

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;

更多信息請查看IT技術專欄

更多信息請查看網絡編程

2026上岸·考公考編培訓報班

  • 報班類型
  • 姓名
  • 手機號
  • 驗證碼
關于我們 | 聯(lián)系我們 | 人才招聘 | 網站聲明 | 網站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點 | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網安備53010202001879號 人力資源服務許可證:(云)人服證字(2023)第0102001523號
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關注公眾號:hfpxwx
咨詢QQ:1093837350(9:00—18:00)版權所有:易賢網