如何檢查是否有第二個螢幕 |
|
答題得分者是：老大仔
|
|
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 發送簡訊給我 |
發表時間：2012-10-31 13:42:40
IP:114.34.xxx.xxx 訂閱
系統時間：2024-04-25 9:21:38
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |