Delphiでマルチディスプレイを使いこなす！ #AdventCalendar

皆さん、PCディスプレイは何を使ってますか。

完全在宅勤務に移行し、全く外出しなくなったことで使い所のなくなった小遣いと、テレワークの補助金で4kディスプレイを導入しました。

PCが3画面出力に対応していることもあり、調子に乗って4kトリプルディスプレイ環境を作ったのですが、マウスカーソルの移動が非常に大変で困ったので、自分なりに解消するツールをDelphiで作成したので紹介します。

こんな感じ

構成

PC：Windows10
マウス：Logicool MX Anywhere 2S（最近3が出ましたね、欲しい！）
ディスプレイ：縦、横、縦という並び、全て27インチの4K、スケーリングは125%。真ん中がメインディスプレイ。

縦横の解像度は、スケーリングが125%なので、左から[X,Y]=[1728,3104]、[3104,1728]、[1728,3104]となっています。（150%にしたら負けだと思ってる）
この状態だと、橋から端まで移動するのに14cmくらいマウスを動かさなければいけません。
これだけで在宅勤務でなまった体が筋肉痛になりそうです。

そこで、マウスのショートカットボタンを使ってジャンプさせることを思いつきました。

プログラム

VCLアプリケーションのプロジェクトソースを書き換えます。コンソールアプリでも構いません。

左のディスプレイに移動するためのプログラム

ToLeft.dpr

program ToLeft;
// {$R *.res}
uses
  Vcl.Forms, Winapi.Windows;
begin
  Application.Initialize;
  SetCursorPos(-864,1600);
end.

真ん中のディスプレイに移動するためのプログラム

ToMain.dpr

program ToMain;
// {$R *.res}
uses
  Vcl.Forms, Winapi.Windows;
begin
  Application.Initialize;
  SetCursorPos(1552,1080);
end.

右のディスプレイに移動するためのプログラム

ToRight.dpr

program ToRight;
// {$R *.res}
uses
  Vcl.Forms, Winapi.Windows;
begin
  Application.Initialize;
  SetCursorPos(3936,1600);
end.

設定の割当

これらのアプリケーションを、Logicool Optionsというアプリケーションでジェスチャーボタンボタンに割り当てます。（特別なボタンなので、Delphiでマウスイベントを受け取ることはできなそうでした）

起動してマウスを選択
マウスのジェスチャーボタンを選択
ジェスチャーボタンの動作を「カスタム」に変更し、「カスタマイズ」をクリック
○をクリックして、アプリケーションの起動を選択、ToMain.exeを指定する
←をクリックして、アプリケーションの起動を選択、ToLeft.exeを指定する
→をクリックして、アプリケーションの起動を選択、ToRight.exeを指定する

これで、
・ジェスチャーボタンを押したら真ん中のディスプレイに移動する
・ジェスチャーボタンを押しながらマウスを左に移動させたら左のディスプレイに移動する
・ジェスチャーボタンを押しながらマウスを右に移動させたら右のディスプレイに移動する
という構成ができました。

注意

{$R *.res}の指定があると、100%の解像度の位置（[2160,3840]、[3840,2160]、[2160,3840]）で指定ができます。
{$R *.res}の指定がない場合は、スケーリング後（この場合は125%）の解像度（[1728,3104]、[3104,1728]、[1728,3104]）で指定が必要です。
位置はメインディスプレイの左上が[0,0]です。そのため、左のディスプレイの左上はX,Y共にマイナス座標になっています。右のディスプレイはYがマイナス座標です。

もっと

上記のコードだと、一瞬アプリケーションウィンドウが表示され、気になってしまいます。
これを回避するためには、以下のようにVCLアプリケーションとして作成し、SetCursorPos(xxx)の記述をフォームのOnCreateイベントに、Application.ShowMainForm:=False;をプロジェクトソースに記述します。

フォームのOnCreateでカーソル位置を指定し、移動後にPostMessageでアプリケーションを強制的に終了させる

uToMain.pas

procedure TfMain.FormCreate(Sender: TObject);
begin
  SetCursorPos(1940,1350);
  PostMessage(handle,WM_CLOSE,0,0);
end;

プロジェクトソースにApplication.ShowMainForm:=False;の記述を追加する

ToMain.dpr

program ToMain;

uses
  Vcl.Forms,
  uToMain in 'uToMain.pas' {fMain};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.ShowMainForm:=False; // ここ
  Application.CreateForm(TfMain, fMain);
  Application.Run;
end.

これで起動の度にアプリケーションが表示されなくなり、気持ちよくマウスを移動できるようになりました。

後は、iniファイルを読み込んで移動先の位置を自由に変更できるような形にすると、みんなhappyになれそう（やるとは言ってない）