喫茶XRAYトップページ

[スレッド全体]
[10955] Re2:マウスホイールを無効にする返信　削除
2017/3/24 (金) 08:29:29 SO
▼ Mr.XRAYさん
> > マウスホイールの機能を無効にするとなると，システム的なのかな ?
>
> こんなのもありますけど．
> 「くるくる」さんの反応は，私には理解不可能です．
> 「それなりに」とは一体どういう状態なのか ?
> スクロールの動作とフォーカスの移動とはどういう関係なのか ?
>
> [ComboBoxをホイールでスクロールさせないようにするには？ ]
> http://www.papy.in/bbs/delphi/200509/05090044.html

あんまり良く読んでなく、想像ですが、アレじゃないでしょうか？

コンボボックスでリストが表示されていない状態で、
フォーカスがあるとして、ホイールをくるくるすると、
コンボボックスがスクロール。。。じゃなく、別の値を選択するっていうやつ？
[10957] Re3:マウスホイールを無効にする返信　削除
2017/3/24 (金) 09:56:27 おかぽん
▼ SOさん
> コンボボックスでリストが表示されていない状態で、
> フォーカスがあるとして、ホイールをくるくるすると、
> コンボボックスがスクロール。。。じゃなく、別の値を選択するっていうやつ？
ドロップダウン中だけ、ホイールで動いてほしいってやつですかね？

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ActiveControl = ComboBox1 then Handled := not ComboBox1.DroppedDown;
end;

[10958] Re4:マウスホイールを無効にする返信　削除
2017/3/24 (金) 10:35:42 Mr.XRAY
▼ おかぽんさん

> procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
>   WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
> begin
>   if ActiveControl = ComboBox1 then Handled := not ComboBox1.DroppedDown;
> end;

なるほど，そうですか．
私がレスしたコードだと，ドロップダウンリストを表示している時，
マウスホイールが使えないですね．

[10959] Re5:マウスホイールを無効にする返信　削除
2017/3/24 (金) 10:53:24 Mr.XRAY
>ComboBoxのText部の右横のボタン（リストを表示させるボタン）で
>リストを閉じたときComboBoxのText部にフォーカスが移ってしまいます。

これは通常の動作だと思うんですが．
何かありましたっけ．

# 質問そのものは，マウスホイールの動作のことなのに，関係ないと思うのですが，
# こういう書き方をされると，私がレスしたコードのせいに聞こえる...
# 言っておきますが，リストを閉じなくても，ドロップダウン用のボタンを
# クリックした時点で TComboBox にフォーカス移動するハズです．

[10960] Re5:マウスホイールを無効にする返信　削除
2017/3/24 (金) 11:06:25 Mr.XRAY
> なるほど，そうですか．
> 私がレスしたコードだと，ドロップダウンリストを表示している時，
> マウスホイールが使えないですね．

折角教えて頂いたのに何ですが，質問は

>C00000omboBoxをホイールでスクロールさせたくないのですが。。。
>教えてください。

つまり，TComboBox でマウスホイールが無効になればいいんですね．
ヘヘヘッ

[10961] Re6:マウスホイールを無効にする返信　削除
2017/3/24 (金) 11:22:38 おかぽん
▼ Mr.XRAYさん
> つまり，TComboBox でマウスホイールが無効になればいいんですね．
> ヘヘヘッ
「ドロップダウン時だけ」とか条件指定してないし、あれでいいんじゃないでしょうか。
あれだけで全部わかったら、それこそエスパーです。

# まさか、Mr.XRAY から Esper.XRAY に・・・
[10962] Re7:マウスホイールを無効にする返信　削除
2017/3/24 (金) 11:27:05 Mr.XRAY
> > ヘヘヘッ
> 「ドロップダウン時だけ」とか条件指定してないし、あれでいいんじゃないでしょうか。

はははっ．
ちょっと言ってみたかっただけです．
おかぽんさんのコードの方が親切です．
実際に質問された方が，テストした時，私がレスしたコードをやってみたら，

「リストを表示した時にマウスホイールでスクロールしないのですが」

となる可能性があります．

[10963] Re8:マウスホイールを無効にする返信　削除
2017/3/24 (金) 16:50:57 Mr.XRAY
> おかぽんさんのコードの方が親切です．

おかぽんさん，本当にゴメンナさい．
使わせて頂きました．既に添付しているファイルを修正するのは面倒なので，
記事を追加することで対応しました．
この方がサイトの記事を読む方にとってもいいかと．

『人が教えてやったのを勝手に使いやがって．もう教えてやらない !!』
なんて言わないで，これからもよろしく．

最近喫茶XRAY の書き込みで記事が充実していくな〜．
皆さんに感謝です．

[ワード操作フォームEx] [マウスホイールでのスクロールを無効にする]
http://mrxray.on.coocan.jp/Delphi/plWordEx/T_ReplaceStr.htm#02

[10969] Re9:マウスホイールを無効にする返信　削除
2017/3/25 (土) 08:12:57 おかぽん
▼ Mr.XRAYさん
いやいや、SOさんの書き込みを読んでのことですから、今回のファインプレーは、
むしろSOさんですよ。
これがなければ、たぶん考えつかないです。

つまり、友情・努力・勝利・・・違うか
[10974] Re10:マウスホイールを無効にする返信　削除
2017/3/27 (月) 13:59:05 Esper.SO
▼ おかぽんさん
> ▼ Mr.XRAYさん
> いやいや、SOさんの書き込みを読んでのことですから、今回のファインプレーは、
> むしろSOさんですよ。
> これがなければ、たぶん考えつかないです。
>
> つまり、友情・努力・勝利・・・違うか

(^-^)b
[▼次のスレッド]
INCM/CMT
Cyclamen v3.82