Scrollrad nutzen

[ferby]

Hallo,

Bei mir funktioniert das Scrollrad im Programm nicht, muss ich das vorher irgendwie aktivieren?
Ich habe einfach eine Leere Form und einen Button der soweit unten ist das ich eine scrolleiste habe, jetzt will ich mit den Scrollrad scrollen, wie geht das???

[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

[ferby]

Hi.

Danke, das wollte ich wissen, habs nicht in der Suche gefunden,


Ferby