Discussion :

[medreg]

bonjour
Comment utilisé les Touches de clavier (keyUp,KeyDown) pour naviguer d'un fichier à un autre
j'ai utilisé cet code sur evenment OnKeyDown
mais ne fonctionne pas
if key = vk_up then abstable1.next;
if key = vk_down then abstable1.prior;
pour quoi ne fonctionne pas
merçi

[philnext]

Tu devrais mettre une copie de ton code.

[medreg]

Tu devrais mettre une copie de ton code.

bonjour
voila mon code qui j'ai utilisé mais ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_Down then abstable1.Next;
if key = VK_UP then abstable1.Prior;
end;

[philnext]

Si tu mets un point d’arrêt tu y passes sur les lignes qui t'intéressent ?

[ShaiLeTroll]

Même avec KeyPreview à True pour gérer le OnKeyDown, cela ne capture pas certaines touches dont celle pour le déplacement comme TAB ou les flêches

Les touches de navigation (Tab, les touches de déplacement, etc.) ne sont pas affectées par KeyPreview car elles ne génèrent pas d'événements clavier. De même, lorsqu'un bouton détient la focalisation ou lorsque sa propriété Default a la valeur true, la touche Entrée n'est pas affectée par KeyPreview car elle ne génère pas d'événements du clavier.

Tu dois mettre en place un gestionnaire d'évènement OnMessage en filtrant sur WM_KEYDOWN comme dans ce sujet

Pense que les controls comme les Edit, Memo, intercepte les touches !
Un DBGrid ou un TDBNavigator peut aussi intercepter !
Dans un comportement standard, les fleches permettent de naviguer entre les éléments focusables comme le TButton, ou les TabSheet d'un PageControl !

[medreg]

Même avec KeyPreview à True pour gérer le OnKeyDown, cela ne capture pas certaines touches dont celle pour le déplacement comme TAB ou les flêches

merçi bcp
le code marche très bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP: AbsTable1.Next;
    VK_DOWN: AbsTable1.Prior;
    VK_NEXT: AbsTable1.Next;
    VK_PRIOR: AbsTable1.Prior;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   KeyPreview := True;
end;