OnMouseWheelUp/Down TPageControl bei CLX

[FuerstM]

Hi,

offenbar reagiert TPageControl (bei CLX Anwengungen, nicht jedoch bei VCL) beim Drehen des MousWheels über dem Control indem es vor- bzw. zurückblättert. Das ist ein Verhalten, dass bei mir nicht erwünscht ist. Weiß jemand, wie dieses "Feature" deaktiviert werden kann?
Das einzige, was mir jetzt einfällt, ist, einen Nachfahren von TPageControl zu kreieren und die OnMouseWheel.. Methoden zu überschreiben (in TControl deklariert).
Vielleicht gibt's da eine einfachere Lösung. (übrigens ich arbeite auf XP)

lg
Martin

[blablab]

Du konntest verhindern, dass das TPageControl die Benachrchtigung bekommt, dass das Mouswheel gedreht wird:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
   var Handled: Boolean);
begin
   if (Msg.message = WM_MOUSEWHEEL) and (Msg.hwnd = TPageControl) then
      Handled := True;
   end;
end;