Hamsterlaufrad ääh Mauslaufrad

[Schneck]

Hallo da draußen,
null blassen Schimmer, was Du meinst :( Aber wenn ich die MousDown-Procedure überschreibe, das geht dann sehr gut. Auf Klicken geht's auf Wheelen geht's nicht.

Hier jetzt die vollständige erweiterte Kompo mit funzo Mausklick aber nixfunzo Mousewheel:

Delphi-Quellcode:

unit MZBlatt_TEST1;

interface

uses
   Classes, ExtCtrls, WinTypes, Dialogs, Controls;

type
  TZeichenBlatt_TEST1 = class(TImage)
  private
  protected
    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  override;
    constructor Create(aOwner: TComponent); override;
  published
    property OnMouseWheel;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Test', [TZeichenBlatt_TEST1]);
end;

constructor TZeichenBlatt_TEST1.Create(aOwner: TComponent);
begin
  inherited create(aOwner);
end;

procedure TZeichenBlatt_TEST1.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited MouseDown(Button, Shift, X, Y);
  ShowMessage('MoiseleKlickGehtSupertoll');
end;

function TZeichenBlatt_TEST1.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;
begin
  ShowMessage('Vorher: DräDichDräDichRäädchen');
  Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
  ShowMessage('Nacher: HasteDichGutGeräätMeinRäädchen');
end;

end.

Schneck
chneck
hneck
neck
eck
ck
k

[Schneck]

Halloa, schon wieder ich :zwinker: ,
bin der Lösung meines Problemes noch auf der Spur. Aber warum funzt das Wheelereignis vom Form1 und nich das von der Kompo ZeichenBlatt, obwohl im Objektinspektor dieses Event auch per Hand belegt werden kann? Kann ich da vielleicht etwas mit dem MouseWheelHandler drehn, oder ist diese Idee ganz falsch (keine Ahnung was ein Handler überhaupt tut)?
Fragt sich
Schneck

[RealMcFly]

Hallo ihr...
Achtet mal darauf, dass mouse-wheel nur auf Komponenten geht, die den Focus haben können... vieleicht TWinControl oder TCustomControl zum vererben nehmen...

Grüfe :wall: McFly

[Schneck]

Halloa,

der Tipp mit dem Focus ist sicher gut, den hab ich auch schon von anderen Seiten bekommen; aber wie geht das mit dem Focus? :gruebel: Konnte unter der Delphihilfe und in meiner bescheidenen Literatur nicht viel dazu finden.
Habs auch schon mit Updaten, Registrieren und Neuinstallieren versucht, aber nix hilft. Mein Arzt sagt, ich sei depressiv; ich weiß jetzt warum :mrgreen:
Werde mir damit helfen, dass ich zomme, wenn ich die linke Maustaste gedrückt halte ... das ist zwar nich so cool wie Wheelen, aber auf MausClick funzt bei meiner Komponente alles gut.
Aber vielleicht kann mir jemand doch noch eine Kurznachhilfestunde im Focusieren geben, vielleich geht es ja doch noch damit?!

Liebe Grüße und Danke
Schneck