マウスの中央のボタンのイベントを取得するには？ (ID:15790)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ん〜？さん
すばらしいです！！。
解決印を押してしまったにもかかわらず、投稿いただき、
ありがとうございます。m(__)m
下記のようにしたところバッチリです。

もうひとつだけお聞きしたことがあります。他のアプリ（仮にA）にフォーカスを移動した後に、このTMyPaintコンポーネント上にマウスを移動させてマウスの中ボタンをまわすと他のアプリ（仮にA）のマウススクロールイベントが作動します。TMyPaintコンポーネントにマウスカソールが入ってきたときにTMyPaintコンポーネントのマウススクロールイベントを発生させるようにするにはどこを改良すればいいでのでしょうか？
お手数をおかけします。よろしくお願いします。

procedure TMyPaint.WndMethod(var Message:TMessage);
var
  form    :TCustomForm;
begin
  if (WM_MOUSEFIRST <= Message.Msg) and (Message.Msg <= WM_MOUSELAST) then begin
    {マウスメッセージはすべて自分で処理するのでいいのでしょうか？}

if (Message.WParam > 0) then 
    begin 
    // ホイールを奥に動かした時の処理
    MessageBeep(MB_ICONINFORMATION);
    end 
    else begin 
        // ホイールを手前に動かした時の処理
    MessageBeep(MB_OK);
    end;

Message.Result := Perform(Message.Msg, Message.wParam, Message.lParam);
  end
  else begin
    if (Message.Msg = WM_ACTIVATEAPP) then begin
      form := GetParentForm(Self);
      if form <> nil then begin
    Windows.SetParent(AllocHandle, form.Handle);
      end;
    end;
    Message.Result := CallWindowProc(@DefWindowProc, AllocHandle, Message.Msg,
            Message.wParam, Message.lParam);
  end;

←解決時は質問者本人がここをチェックしてください。

戻る