OnMouseWheel bei TPaintBox

[Shaman]

Hallo zusammen

Weiss jemand, wie man direkt bei einer PaintBox auf das Mausrad reagieren kann? WM_MOUSEWHEEL wird scheinbar nicht empfangen...

Gruss
Shaman

[APP]

Hallo Shaman,

Peter Below antwortete in der NG "borland.public.delphi.objectpascal" auf diese Frage mit:

Delphi-Quellcode:

unit ExPaintBox;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;

type
  TExPaintBox = class(TPaintbox)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }

     property OnMouseWheel;
     property OnMouseWheelDown;
     property OnMouseWheelUp;
   end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TExPaintBox]);
end;

end.

p.s. (ungetestet) + funktioniert aber erst ab D5 aufwärts.