C# と VB.NET の質問掲示板

■No57305 (ken さん) に返信

VB.NETのコードですが参考までタイマーコントロールにて

pt...マウスの座標
bd...フォーム全体の領域
clbd...クライアント部分の領域(スクリーン座標に変換)
bd内でclbdより上にマウス座標があればタイトル部にマウスカーソルがあります。
　 bd.left <= pt.x <= bd.left + bd.width  かつ bd.y <= pt.y < clbd.y 
こんな感じの条件でみればよいと思います。
CLIなので多分同じ処理が出来ると思います。

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim pt = Control.MousePosition
        Dim bd = Me.DesktopBounds
        Dim clBd = New Rectangle(Me.PointToScreen(Me.ClientRectangle.Location), Me.ClientSize)

        Label1.Text = String.Format("({0}, {1})", pt.X, pt.Y) & Environment.NewLine &
                        String.Format("({0}, {1}, {2}, {3})", bd.X, bd.Y, bd.Width, bd.Height) & Environment.NewLine &
                        String.Format("({0}, {1}, {2}, {3})", clBd.X, clBd.Y, clBd.Width, clBd.Height) & Environment.NewLine
    End Sub

■No57305 (ken さん) に返信
> 　Visual C++ 2010 expressでマウス位置の検知を用いたフォームアプリケーションを作成しています。
何のためにマウス位置を検知したいのかにもよりますが、
Timer で定期的に Cursor->Position を調べるというのは駄目でしょうか。


> WM_NCHITTEST = &H84
&H84 は VB の文法ですね。(^^;) 


> プロパティページのみでオーバーライドボタンは見つかりませんし…。
WndProc メソッドをオーバーライドするのであれば、こんな感じかな。


private:
  static const int WM_NCHITTEST = 0x84;

protected:
  virtual void WndProc( Message% m ) override
  {
    Form::WndProc(m);
    if( m.Msg != WM_NCHITTEST) return;

    // HTCLIENT = 1
    // HTCAPTION = 2
    // HTSYSMENU = 3
    // など(winuser.h で定義されています)
    this->label1->Text = m.Result.ToString();
  }

■No57363 (ken さん) に返信
> m.Result=18でボーダー上は検知できますが、
HTBORDER ですね。これはサイズ変更されないウィンドウ境界なので、
FormBorderStyle が可変サイズの場合は、別の値になります。

this->ClientRectangle 内の場合は HTCLIENT (1 : クライアント領域) ですね。


> m.Result=2のタイトルバー上は、なぜか検出できないときがあるようです。
検出できなかった場合、何が渡されましたか?

WM_NCHITTEST による検出がうまくいかないようであれば、
gcnew Point(m.LParam.ToInt32()) の座標をもとにして
自分で m.Result をセットするという選択肢もあります。

タイトルバー部に関係ありそうなところだと、Result としては
　HTCAPTION   (2 : タイトルバー領域) 
　HTSYSMENU   (3 : コントロールメニュー) 
　HTMINBUTTON (8 : 最小化ボタン)
　HTMAXBUTTON (8 : 最大化ボタン)
　HTCLOSE    (20 : 閉じるボタン)
あたりですかね。あとはボーダー系。
# あえて別の値を返しても構いませんが。


■No57364 (shu さん) に返信
> そうするとやっぱりTimerで見ないと難しいんじゃないかな。
> 他のウィンドウのメッセージまで監視することになるし。

WM_NCHITTEST や WM_SETCURSOR は基本的に、カーソルが自ウィンドウ内に
あるときにしか飛んできませんしね。


とりあえず、Timer での実装例。
マウスポインタが自フォーム上なら不透明、フォーム外なら透明度 50% です。

private:
  void UpdateOpacity()
  {
    double opacity = Bounds.Contains(Cursor->Position) ? 1.0 : 0.5;
    if (Opacity != opacity) Opacity = opacity;
  }
private:
  void Form1_Load(Object^  sender, EventArgs^  e)
  {
    UpdateOpacity();
    timer1->Interval = 100; //ここの値はお好みで
    timer1->Start();
  }
private:
  void timer1_Tick(Object^  sender, EventArgs^  e)
  {
    UpdateOpacity();
  }

■No57390 (ken さん) に返信
> 例えばキャプション領域にマウスカーソルを留め続けると、
> 次々にイベントが起こってしまい、CPUを全て食ってしまうようです。
あれ?

マウスを動かしていないのであれば、ウィンドウの状態が変化したりしない限り、
WM_NCHITTEST は流れてこないと思いますが…。

protected: virtual void WndProc( Message% m ) override
{
  Form::WndProc(m);
  if( m.Msg != WM_NCHITTEST) return;
  listBox1->Items->Insert(0, m.ToString());
}

で。タイマーによる実装だと、何か都合が悪かったのでしょうか?
あれなら、WM_NCHITTEST / MouseLeave / MouseEnter の処理も不要になるように思えますが…。