TScrollbar reagiert nicht auf mousewheel und Arrow-Key

[Wolle22]

Hallo zusammen,

Ich habe einen VertikalBar: TScrollBar; auf TForm.

Dieser reagiert nicht auf mousewheel und Arrow-Key.

Die Standard-Funktion ueber die linke Maustaste ist einwandfrei.

Es handelt sich um ein altes Delphi-Programm konvertiert nach Lazarus auf Linux Mint.

Gruss
Wolfgang

[Zvoni]

Du musst die Events OnMouseWheelUp/Down selbst implementieren und "einhängen"
In den Events zählst du die Position der Scrollbar Hoch/Runter

https://lazarus-ccr.sourceforge.io/docs ... eelup.html

Aircode

Code: Alles auswählen

MyForm = CLass(TForm)
.....
MyScrollBar:TScrollBar;
Procedure OnMouseWheelUp: TMouseWheelUpDownEvent;

End;
....
//blablabla
...
//In FormCreate
Begin
MyScrollbar.OnMouseWheelUp:=@OnMouseWheelUp;
End;

//In MyForm.OnMouseWheelUp
Inc(MyScrollBar.Position, MyScrollBar.SmallChange);

[Wolle22]

ok, danke, werde ich mal ausprobieren.