Mausrad in TImage

[Schneck]

Hallo,

Situation: Ich habe eine Komponente TZeichenBlatt von TImage abgeleitet. Wenn ich mit der Maus über die Komponente fahre, soll beim Mausraddrehen gezoomt werden.

Frage: Wie kann ich auf das OnMouseWheel Ereignis zugreifen? Das OnClick Ereignis ist ja bei TImage standartmäßig dabei, aber das OnMouseWheel nicht! Kann ich es irgendwie von TControl ableiten? Wie geht das? Hab auch schon untenstehendes versucht, aber auf das Mausrad ragiert nix!!!!!!!!

Danke
Schneck

Delphi-Quellcode:

TZeichenBlatt = class(TImage)
  private
    procedure MausDrehen(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
   ...
  protected
   ...
  public
   ...
  published
    Property OnMouseWheel;
   ...




procedure TZeichenblatt.MausDrehen(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
   if WheelDelta > 0 then ShowMessage('ää');
   Canvas.TextOut(10,10,'hjhjhhjhgjkghk');
   Handled := True;
end;

constructor TZeichenBlatt.Create(aOwner: TComponent);
begin
  inherited create(aOwner);
...
  OnMouseWheel := Mausdrehen;
..
end;

[edit=MrSpock]DelphiCode Tags eingefügt. Mfg, MrSpock[/edit]