Delphi：モニタの設定が変更されたときにフォームの元の場所を復元する方法

Question

私はBoundsRectが保存されている起動時に2番目のモニタに子フォームが配置されたマルチフォームアプリケーションを持っています。

コンピュータの表示構成が変更されると、Windowsは最初の（プライマリ）モニタにフォームを移動します。私はWM_DISPLAYCHANGEでこの変更をキャッチすることができます：

procedure WMDisplayChange(var msg: TWMDisplayChange); message WM_DISPLAYCHANGE; 

それは設定で再表示されたときに私は何をやってに興味がバックセカンドモニタに子フォームを移動さ（すなわちScreen.MonitorCountが1から2に行きます）、例えば：

childForm.BoundsRect := childForm.m_WorkingBounds; 
// (or) 
childForm.BoundsRect := Screen.Monitors[Screen.MonitorCount-1].BoundsRect; 

しかし、この割り当てはありません影響を及ぼすある - 子フォームはありません成功し、モニター0私は、このようなSetWindowPos（）などの他のアプローチを、試してみた

にとどまります。.. 。

Answer 1

実際のところ、Delphi VCLは実際に変更されたときにその内部のモニタリストを更新しません。あなたは、自分自身を強制的にリフレッシュする必要があります。

モニターはTScreen.GetMonitorsメソッドでリフレッシュされますが、残念ながらプライベートな方法であるため、モニターを直接呼び出すことはできません。

TApplication.WndProc(var Message: TMessage)WM_WTSSESSION_CHANGEメッセージを受け取ったときに、それはScreen.GetMonitorsを呼び出します。これはあなたの目標を達成するための最も善意の方法です。あなたはモニターが変更された通知を受け取るとき

だけでアプリケーションに送信：

SendMessage(Application.Handle, WM_WTSSESSION_CHANGE, 0, 0); 

Answer 2

を私は古いバージョンDelphi5でこれをテストし、それだけに簡単に働いた：

は

Screen.Free; 
Screen := TScreen.Create(Nil); 

画面処理が持っていますDelphiのそれ以降のバージョンでは変更されましたが、同様のアプローチが有効です。