OnMouseWheelUp/Down TPageControl bei CLX

[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;