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]