喫茶XRAYトップページ
[
スレッド全体
]
[6370]
Re7:Mouseメッセージの捕獲
返信
削除
2012/9/17 (月) 21:32:13
snail3
▼ Mr.XRAYさん
独自に色々と実験しているんですが、教えて下さい。
procedure WndProc(var Message: TMessage); override;
を定義してみました。
最初
if Message.Msg = WM_LBUTTONDOWN then // マウス左ボタンクリック
としてメッセージを拾っていましたが、子コンポーネントのマウスクリック
は補足できませんでした。 でもメッセージ自体は発生している様です。
if ( Message.Msg = WM_LBUTTONDOWN ) // マウス左ボタンクリック
or( Message.Msg = $B034 ) then // マウス左ボタンクリック
実際に子コンポーネントでクリックすると B034 が発生するようです。
改めて TMessage とは何か？ヘルプには WMメッセージが入っている
と書かれているのですが、当然 $B034 なんてありません。
↓こちらのサンプルでは
http://
delfusa.
main.
jp/
delfusaf
loor/
archive/
www.
nifty.
ne.
jp_forum
_fdelphi
/
samples/
00214.
html
if Msg.Msg= MSWHEEL_ROLLMSG then
などとしているのですが「MSWHEEL_ROLLMSG」って「Winapi.Windows」
で文字列定義されています。
頭から湯気が出そうです。
>やっぱり，生成した子コンポにイベントを割り当てのが一番のような
>気がします．どうせ生成コードを書かなければならないのですから．
元のコンポーネントの OnClick 処理を保存するのがちょっと嫌だな
などと思っています。怠け者ですみません。
[6371]
Re8:Mouseメッセージの捕獲
返信
削除
2012/9/17 (月) 23:10:21
Mr.XRAY
▼ snail3さん
> procedure WndProc(var Message: TMessage); override;
WndProc では，子ウィンドウ，子コントロールの WM_LBUTTONDOWN などは
検出できないと思います．残念ですが．
「お前の子だろう．面倒見ろよ!!」
と言いたいところですが(笑)
[6372]
Re9:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 01:17:39
snail3
▼ Mr.XRAYさん
> WndProc では，子ウィンドウ，子コントロールの WM_LBUTTONDOWN などは
> 検出できないと思います．残念ですが．
げげ Message.Msg = $B034 で今補足しているのはお化けなんでしょうか
昼間になると消えてしまうのか ^^;
[6373]
Re10:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 08:44:32
Mr.XRAY
▼ snail3さん
> げげ Message.Msg = $B034 で今補足しているのはお化けなんでしょうか
そうです．ハハハッ．そんなことはないですけど．
こういうことだと思います．
1. WndProc では，子コントロールのWM_LBUTTONDOWN メッセージは直接こない
2. 子コントロールからは何らかのメッセージが飛んでくる
3. メッセージの内容は，子コントロールの種類による
WndProc からのWM_NOTIFY メッセージを受けて，その LParam から
NMHDR 構造体の値を使用して処理することはあります．
子コントロールからの
WM_LBUTTONDOWN メッセージを処理する方法として考えられるのは，
現在の私の知識範囲では，以下の3 つが考えられます．
1. 生成した子コントロールにイベントを割り当てる
2. ローカルマウスフックを使用する
3. TApplicationのOnMessage で処理する
Message.Msg = $B034
で処理できているのであれば問題ないと思います．
なんと言っても
「勝てば官軍，動けば正義」ですから (^^;
[6374]
Re8:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 08:54:06
SO
▼ snail3さん
> 改めて TMessage とは何か？ヘルプには WMメッセージが入っている
> と書かれているのですが、当然 $B034 なんてありません。
良く分かっていませんが(^^;a
http://
chokuto.
ifdef.
jp/
urawaza/
message/
index.
html
[6375]
Re9:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 10:07:55
Mr.XRAY
▼ SOさん，どうもです．
そっか．TMessage のこと忘れていました．
>
http://
chokuto.
ifdef.
jp/
urawaza/
message/
index.
html
TMessage 型には，
PostMessage(Handle, WM_XXXX, WParam, LParam)
SendMessage(Handle, WM_XXXX, WParam, LParam)
で送られてくる WM_XXXX, WParam, LParam が取り出せるということですね．
WM_XXXX だけとは限りませんが．
$B034 は分かりません．通知メッセージなのかな?
http://
msdn.
microsof
t.
com/
en-
us/
library/
ms644927
#
system_d
efined
ここの Notifications ですね．
Windows の Windows SDK 7.0 にも定数定義がないものもあるようです．
最新のにはあるかも知れません．
[6377]
Re10:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 20:37:31
snail3
▼ Mr.XRAYさん
> ▼ SOさん，どうもです．
$B034 いうのは何かのメッセージが重なっているような気がしますが、、
あくまで気だけです。根拠はありません。
こういった未定義の値が出てくるプログラムミスのような気がして
心配ですが、最後は「Windowだから」で終わってしまう。いい加減な私。
[6376]
Re8:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 10:28:14
Mr.XRAY
> 元のコンポーネントの OnClick 処理を保存するのがちょっと嫌だな
> などと思っています。怠け者ですみません。
子コントロールの情報を保存しておいて，次回自動生成するという
ことですよね．
でしたら，イベントの情報は保存しないで，次回子コントロールを
生成したら，イベントだけ定義しなおす，というのはどうですか．
う〜ん．面倒かな?
[6378]
Re9:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 20:46:03
snail3
▼ Mr.XRAYさん
> う〜ん．面倒かな?
今日から客先テスト開始でして、とりあえず納品してしまいました。 :-)
で、１台だけこれが原因かわかりませんが変な動作してしまいました。
他のマシンは正しく動作しているようにみえました。
先ほど、食事の後にアイスクリームをぺろり。あと数分が寝てしまうと
思います。
なぜかアイスクリーム食べると睡魔に襲われるおじいです。
[6379]
Re10:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 21:10:15
Mr.XRAY
▼ snail3さん
> なぜかアイスクリーム食べると睡魔に襲われるおじいです。
お疲れ様でした．お休みなさいませ．
サーティワンのおいしいです．でも，ちょっと量がありすぎ．
[6380]
Re8:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 22:58:17
おかぽん
▼ snail3さん
> 実際に子コンポーネントでクリックすると B034 が発生するようです。
Delphi5 で恐縮ですが、Controls.pas で宣言されている
"CM_INVALIDATE" だったりしません？
52=$34
CM_BASE = $B000;
CM_INVALIDATE = CM_BASE + 52;
[6381]
Re9:Mouseメッセージの捕獲
返信
削除
2012/9/18 (火) 23:08:42
Mr.XRAY
▼ おかぽんさん
> Delphi5 で恐縮ですが、Controls.pas で宣言されている
> "CM_INVALIDATE" だったりしません？
> 52=$34
>
> CM_BASE = $B000;
> CM_INVALIDATE = CM_BASE + 52;
おおっ!! 何という．いや〜，勉強になります．
Delphi が送っているメッセージなんですね．
再勉強しないと．
[第２章 コントロールのメッセージ処理（その１）]
http://
mrxray.
on.
coocan.
jp/
Halbow/
VCL02.
html
[２−５ どのコントロールがどんな通知メッセージを送るのか]
http://
mrxray.
on.
coocan.
jp/
Halbow/
VCL02.
html#
VChap2-
5
[6391]
Re9:Mouseメッセージの捕獲
返信
削除
2012/9/20 (木) 22:42:19
snail3
▼ おかぽんさん
> ▼ snail3さん
> > 実際に子コンポーネントでクリックすると B034 が発生するようです。
>
> Delphi5 で恐縮ですが、Controls.pas で宣言されている
> "CM_INVALIDATE" だったりしません？
そうです。これみたいです。最初よく理解できていませんでしたが(現在も)
やっと少しわかったような気持ちになっています。
> 52=$34
>
> CM_BASE = $B000;
> CM_INVALIDATE = CM_BASE + 52;
>
最終的に WndProc に戻ってきました。
↓こんな感じでコーディングしています。ごく短時間のテストですが
よさそうな感じです。
if ( Message.Msg = WM_LBUTTONDOWN ) // マウス左ボタンクリック
or( Message.Msg = CM_FOCUSCHANGED ) then // CM_FOCUSCHANGED = CM_BASE + 7;
なんだか難しそうでよく読んでいなかったこの↓ページを
我慢して勉強しておけば皆さんに迷惑をかけなくてすんだようです。
第２章 コントロールのメッセージ処理（その１）
http://
mrxray.
on.
coocan.
jp/
Halbow/
VCL02.
html
[6392]
Re10:Mouseメッセージの捕獲
返信
削除
2012/9/20 (木) 22:51:29
snail3
> なんだか難しそうでよく読んでいなかったこの↓ページを
> 我慢して勉強しておけば皆さんに迷惑をかけなくてすんだようです。
>
> 第２章 コントロールのメッセージ処理（その１）
>
http://
mrxray.
on.
coocan.
jp/
Halbow/
VCL02.
htm
誤解を生みそうなので捕捉しますが、文書自体の話ではなくて、
あくまで根気がなく頭の悪い私が事です。
[6393]
Re11:Mouseメッセージの捕獲
返信
削除
2012/9/20 (木) 23:13:07
Mr.XRAY
▼ snail3さん，どうもです．
> > なんだか難しそうでよく読んでいなかったこの↓ページを
何を隠そう．私もあまりまじめに読んでいませんです．
> > 我慢して勉強しておけば皆さんに迷惑をかけなくてすんだようです。
そういうのは，この店ではないんじゃないでしょうか?
snail3 さんの発言と，おかぽんさんのおかげで勉強になりましたし．
そして，もしかしたら，このスレッドを読んでいる方々にも参考に
なったんじゃないかと，密かに思っています．(^^
[6394]
謝ってもらいたいのは，迷惑をかけた人
返信
削除
2012/9/20 (木) 23:31:16
Mr.XRAY
しつこい性格なので，
> > > 我慢して勉強しておけば皆さんに迷惑をかけなくてすんだようです。
「迷惑」と言えば，過去にステハンで発言した方に，
「ご迷惑をおかけしました」と
一言あやまってもらいたいですね．ハッキリ言って．
他人に迷惑をかけて謝らないのは，人として情けないです．ハッキリ言って．
そういう人は，政治家にも，今回の中国に対しても，原発の事故に関しても，
大津の中学校の事件に関しても，
何も発言する資格はありません!! ハッキリ言って．
『邪魔なMr.XRAYのサイトを消すのに刃物はいらぬ，
喫茶XRAYでステハンで発言すればいい』
ってね．
[6395]
Re:謝ってもらいたいのは，迷惑をかけた人
返信
削除
2012/9/21 (金) 08:37:50
snail3
▼ Mr.XRAYさん
私物忘れが良い方でして ^^;
過去のことを繰り返し思い出しているとだんだんと腹が立ってきてしまいますよ。
（私の場合は反応する気力が無くなったのかもしれませんが）
「嫌なことは聞かなかったふりをする。」
ことが時々できるようになりました。
[
▼次のスレッド
]
INCM/CMT
Cyclamen v3.82