Discussion :

[dleu]

Bonjour,

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
16
17
18
19
20
 
procedure TFicheSign.edtNomPreKeyPress(Sender: TObject; var Key: Char);
var
  SqlString : string;
begin
  if (key=#9) then  //#9=char(VK_TAB)
  begin
    key:=#0;  //évite le bip lors de l'utilisation de return
    SqlString:='SELECT * FROM pat WHERE nomp LIKE '+quotedStr(edtNomPre.Text+'%');
    with DataModule1.AQPat do
    begin
      Close;
      Sql.Clear;
      Sql.Add(SqlString);
      open;
      if RecordCount =0 then nouveau:=true else nouveau:=false;
      if RecordCount =1 then afficher;
    end;
  end;
end;

Cette procédure ne fonctionne pas quand la touche TAB qui est pressée. Pourtant si je remplace #9 par #13 (et en tapant sur return donc) la procédure fonctionne.

Pourquoi, dans le OnKeyPress le test de la touche RETURN fonctionne et pas le test de la touche TAB ? Etrange, non ?

Y a-t-il une solution pour que le test avec la touche TAB fonctionne ?

Merci de m'aider.

Didier

[devyan]

effectivement, pour la touche TAB il me semble qu'il faut utiliser OnKeyDown() / OnKeyUp()

[Merlin]

Keypressed retourne un char et n'est pas adapté par exemple aux touches de fonctions. C'est étonnant que le Tab ne soit pas pris en compte mais pour vérifier que ton problème ne vient pas d'ailleurs, essaye de prendre l'événement OnKeyUp ou OnKeyDown pour la détection.

[Rayek]

Le tab n'est pa reconnu lorsquu'il est utilisé dans un edit.

(J'ai fait le test sur le onKeyUp, et le code touche n'est pas retourné par l'application)

Dans delphi la touche TAB permet de passer d'une zone de saisie/composants clicables à un autre et je crois que les onKeyxxx ne l'intercepte pas pour cette raison

[dleu]

Merci pour vous réponses :

Dans delphi la touche TAB permet de passer d'une zone de saisie/composants clicables à un autre et je crois que les onKeyxxx ne l'intercepte

Malatar, tu as malheureusement raison : cela ne fonctionne ni dans OnKeyPress, ni dans OnKeyDown, ni dans OnKeyUp.

Il faudra que je trouve autre chose.

Merci à vous tous.

[Merlin]

Il faut bien entendu mettre KeyPreview à true dans le TForm pour avoir accès à certaines touches.
Et comme je le disais, Keypressed n'est pas suffisant pour bon nombre de touches (et les combinaisons avec alt, shift...). Il faut donc généralement préférer OnKeyUp/Down. KeyPressed doit resté limité au caractères imprimables.

[Guile]

En effet, avec keypreview à true, ce code marche très bien :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_TAB then showMessage('TAB pressed');
end;

[dleu]

A Guile : Ton code marche en effet très bien. Mais dans mon cas, j'utilise l'évènement OnKeyPress d'un Edit. Et dans ce cas-là, ça ne fonctionne pas.

A Merlin : Que je mette le KeyPress de la form à true ne change rien : ça ne fonctionne pas.
De plus, ça ne fonctionne pas non plus dans le onKeyDown et cela ne fonctionne que pour le onKeyUp mais
uniquement quand j'entre dans mon edit. Or c'est à la sortie de mon edit que je voudrais appliquer ma requête.

Merci quand même pour ces précisions.

[phplive]

Bsr,

Pour une raison que j'ignore, les contrôles fenêtrés Windaube s'obstinent à ne pas transmettre les touches qu'ils gérents comme les flèches ou encore la touche TAB ...

Il existe bien un moyen d'intercepter la touche TAB via le message WM_GETDLGCODE mais alors dans ce cas la touche TAB ne fait strictement plus rien et tu ne peux plus passé d'un composant à l'autre.

Le plus "simple" est donc d'intercepter la touche avant que le contrôle ne la recoive donc au niveau application:

ex :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    Procedure ApplicationMessage(Var msg : TMsg; Var Handled: boolean);
    procedure KeyTab(Control : TControl);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ApplicationMessage;
end;
 
procedure TForm1.KeyTab(Control : TControl);
begin
  if Control = Edit1 then
  begin
    ShowMessage('Touche TAB pressée pour Edit1 ...');
  end;
end;
 
Procedure Tform1.ApplicationMessage(Var msg : TMsg; Var Handled: boolean);
begin
  if Msg.message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_TAB then
    begin
      if Msg.hwnd = Edit1.Handle then KeyTab(Edit1);
    end;
  end;
end;
 
end.

Voilà

Cependant un OnExit ne suffirait-il pas dans ton cas ?

@+
Php

[MFDev]

Or c'est à la sortie de mon edit que je voudrais appliquer ma requête.

Si c'est à la sortie de ton Edit, alors pourquoi pas:

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 TFicheSign.edtNomExit(Sender: TObject);
var
  SqlString : string;
begin
    SqlString:='SELECT * FROM pat WHERE nomp LIKE '+quotedStr(edtNomPre.Text+'%');
    with DataModule1.AQPat do
    begin
      Close;
      Sql.Clear;
      Sql.Add(SqlString);
      open;
      if RecordCount =0 then nouveau:=true else nouveau:=false;
      if RecordCount =1 then afficher;
    end;
end;

Et du coup, on se moque pas mal de Tab...
Fabrice

[dleu]

A phpLive et à MFDev :

Cependant un OnExit ne suffirait-il pas dans ton cas ?

Bien vu, mais dans ce cas, si mon edit a le focus et que l'utilisateur clique ailleurs dans la fiche, il sort de l'édit et lance la requête. Je ne veux pas de ça évidemment.

J'ai trouvé une solution plus simple : puisque la touche TAB n'est prise en compte que lorsque on entre dans un edit via l'évènement OnKeyUp, je teste l'appui sur la touche entrée dans mon edit1 et je teste par onKeyUp l'appui sur la touche TAB à l'entrée de l'édit suivant dans l'ordre de tabulation. Et voilà : mon problème est résolu.

Merci pour votre aide à tous.

A+

Didier