掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TFrameのOnMouseWheelイベントが発生しない (ID:46399)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>OnMouseWheelイベントを発生させる方法を教えてください。 フォームに配置したフレームで OnMouseWheelイベントが検出されればいいのでしょうか． でしたら， (1) 以下の手順で新規にプロジェクトを作成するものとします． http://mrxray.on.coocan.jp/Delphi/plSamples/030_CaptionBar_Button.htm#01 (2) フレームを配置した Form1 の OnMouseWheelイベントを作成する (3) イベントのコードを次のようにする procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); var aPos : TPoint; begin aPos := Frame11.ScreenToClient(MousePos); if PtInRect(Frame11.ClientRect, aPos) then begin Memo1.Lines.Add('AAAA') end else begin Handled := True; end; end; というのはどうでしょうか． Memo1 は確認用に配置した TMemo コンポーネントです．
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.