Deutsches Lazarusforum

Hallo theo,

mit dem folgendem Code erhalte ich sofort WheelDelta auf dem Panel (getestet mit D2009)


unit Unit1;

interface

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

type
TForm1 = class(TForm)
ApplicationEvents1 ...

Hallo Leute,

auf dem Hauptfenster liegt ein Panel, welches ich gern mit MouseWheel abfragen möchte, um zu erfahren, in welche Richtung WheelDelta orientiert werden muss.

Unter Delphi gibt es dafür die Komponente ApplicationEvents mit OnMessage, welche mit diesem Beispiel reibungslos funktioniert ...