如何檢查是否有第二個螢幕 |
答題得分者是:老大仔
|
kevinsoung
一般會員 發表:36 回覆:41 積分:15 註冊:2011-11-09 發送簡訊給我 |
|
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
uses MultiMon;
function MonCountCB(hm: HMONITOR; dc: HDC; r: PRect; l: LPARAM): Boolean; stdcall; begin inc(Integer(pointer(l)^)); result := true; end; function MonitorCount : Integer; begin result := 0; EnumDisplayMonitors(0,nil,MonCountCB, Integer(@result)); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(MonitorCount)); end; ===================引 用 kevinsoung 文 章=================== 各位老師與前輩 請問我要如何在啟動Form1得時候檢查是否有接第二螢幕 如果有接第二螢幕的時候Form1的Life與Top的位置是第二螢幕的0 請各位老師與前輩幫幫忙 萬般感激 謝謝! |
kevinsoung
一般會員 發表:36 回覆:41 積分:15 註冊:2011-11-09 發送簡訊給我 |
|
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
發現一個更簡易的方法
就連一開始的寫法都可以省掉 [code delphi] if Screen.MonitorCount > 1 then begin Left := Screen.Monitors[1].Left; Top := Screen.Monitors[1].Top; end; [/code] ===================引 用 kevinsoung 文 章=================== 感謝前輩的指導 已經可以查到目前可顯示的螢幕數量 我要如何將Form1視窗 指定顯是在第二個螢幕 萬般感激 謝謝! |
kevinsoung
一般會員 發表:36 回覆:41 積分:15 註冊:2011-11-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |