Scrollrad nutzen

[Stevie]

Hi ferby,

du musst einfach selber das Ereignis bearbeiten, so:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    {...}
  private
    procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
    {...}

implementation

procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  if Msg.WheelDelta > 0 then
    Perform(WM_VSCROLL, SB_LINEUP, 0)
  else
    Perform(WM_VSCROLL, SB_LINEDOWN, 0);
  Msg.Result := 0;
end;

MfG
Stevie