Bonjour,
J'ai un scrollbox dans une FORM et une barre de navigation ("ascenseur") verticale.
J'ai pu utiliser la molette de la souris pour monter et descendre en utilisant les événements OnMouseWheelDown et OnMouseWhellUp et mettre les codes suivants :
__________________________________
procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;
procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0);
end;
__________________________________
J'aimerai faire la même chose avec les touches PageUp et PageDown mais je n'ai pas trouvé les événements de ces touches dans l'inspecteur d'objets.
Quelqu'un aurait une idée ?
Merci d'avance.