名前 題名 ▼ 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/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00214.html > > if Msg.Msg= MSWHEEL_ROLLMSG then > > などとしているのですが「MSWHEEL_ROLLMSG」って「Winapi.Windows」 > で文字列定義されています。 > > 頭から湯気が出そうです。 > > >やっぱり，生成した子コンポにイベントを割り当てのが一番のような > >気がします．どうせ生成コードを書かなければならないのですから． > > 元のコンポーネントの OnClick 処理を保存するのがちょっと嫌だな > などと思っています。怠け者ですみません。 > > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link