Touches PageUp et PageDown dans un scrollboxRésolu

Question

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 &#233;v&#233;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&#234;me chose avec les touches PageUp et PageDown mais je n'ai pas trouv&#233; les &#233;v&#233;nements de ces touches dans l'inspecteur d'objets.

Quelqu'un aurait une id&#233;e ?

Merci d'avance.

cs_sim51 · Accepted Answer

Salut,

L'&#233;v&#232;nement que tu cherches est le onkeypress. Celui est appel&#233; &#224;
chaque fois que l'on press une touche du clavier. Cependant toi tu veux
que cela r&#233;agissent &#224; la touche pagedown et pageup. Pour ce faire tu
devra mettre une condition sur la touche qui est pr&#233;ss&#233;e grace &#224; son
code ascii ou delphi ( if key=code_touche).

Je suis d&#233;sol&#233; de ne pas pouvoir t'aider un peu plus mais je n'ai plus
delphi sur mon ordi donc je ne peux pas trouver le code de la touche,
mais au moins je te mets sur la voie :d

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

Touches PageUp et PageDown dans un scrollbox

1 réponse

Votre réponse

Discussions similaires