コンポーネント内でマウスホイールのイベントに対応したいのですが (ID:38643)

名前

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

本文

そのソースをコンパイルすると
「OnMouseWheel」は基本クラスに存在しませんっていうエラー出てますけど？

で、やりたいのはこういうこと？

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TPaintBoxB = class(TPaintBox)
  private
  protected
  public
    procedure WMMousewheel(var Msg: TMessage); message WM_MOUSEWHEEL;
  published
   //追加
  end;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private 宣言 }
    FPaintBox : TPaintBoxB;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPaintBox := TPaintBoxB.Create(Self);
  FPaintBox.Parent := Self;
  FPaintBox.Align := alClient;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FPaintBox.Free;
end;

procedure TPaintBoxB.WMMousewheel(var Msg: TMessage);
begin
  if (Msg.WParam > 0) then
  begin
    { ホイールを奥に動かした時の処理 }
    ShowMessage('ホイールが奥に動いた');
  end
  else
  begin
    { ホイールを手前に動かした時の処理 }
    ShowMessage('ホイールが手前に動いた');
  end;
end;

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

戻る