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

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技術(shù)專欄

更多信息請查看網(wǎng)絡(luò)編程
易賢網(wǎng)手機網(wǎng)站地址:delphi程序全屏顯示無標題欄覆蓋整個屏幕
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點

版權(quán)所有:易賢網(wǎng)