マウスの機能を入れ替える

■使用するコンポーネント

■使用するAPI関数

■ソースは下記のようになります。

■マウスの機能を入れ替える処理
procedure TForm1.Button1Click(Sender: TObject);
begin

　//マウスボタンの機能を逆にする
　SwapMouseButton(True);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

　//マウスボタンの機能を元に戻す。
　SwapMouseButton(False);

end;




Win32APIのページへ



ホーム PV ランキング