Delphi でマルチディスプレイ環境のチェック

Screen.MonitorCount で接続されているディスプレイの個数がチェックできる。

.MonitorNum で、どのディスプレイにウィンドウがあるかをチェックできる。

PtInRect(Screen.Monitors[0].WorkareaRect, Point(Self.Left, Self.Top)) みたいな感じで、指定したディスプレイの範囲にウィンドウがかぶっているかをチェックできる。

 実行時にフォームを移動するには、.Top と .Left を設定すればOK。
Primary ディスプレイの左上を基準(0, 0)に、位置が指定されているため。

え?Webサイトのバックアップ、してないの!?

いざという時には復旧までしてくれる
『ワードプレス外部バックアップサービス』

■3つの特長
・自分でやらなくて良い
・いざという時の復旧付き
・外部サーバーにバックアップ

コメントを残す