Discussion :

[freud]

Bonjour,

Sur une form dont le KeyPreview est à True, j'ai un Edit dans avec du code dans l’événement KeyDown qui s’exécute lorsque qu'il détecte que la touche Entrée est appuyée jusque là c'est bon. J'ai fait la même chose avec un deuxièmeEdit, le VK_RETURN n'est pas détecté dans le deuxième.
Pourriez-vous svp m'éclairer ?

[ShaiLeTroll]

Le 2eme TEdit est branché sur le bon gestionnaire de KeyDown ?

Je l'ai fait en D7 ou je convertissais le Enter en Tab plutôt dans le KeyPress
Aucun soucis mais j'avais rarement KeyPreview à True

En XE2, je l'ai fait récement, un Edit pour un Code, un autre pour une quantité, les deux ayant chacun un gestionnaire de KeyDown

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
//------------------------------------------------------------------------------
function TFormSliteHelper.EnterAsTab(var Key: Char): Boolean;
begin
  if Key = #13 then
  begin
    Result := True;
    if LongBool(GetAsyncKeyState(VK_SHIFT) and $8000) then
      SelectPriorControl()
    else
      SelectNextControl();
    Key := #0; // Evite le "dong" !
  end
  else
    Result := False;
end;

[pprem]

Bonjour

Aurais-tu un projet de démo pour qu'on regarde le source directement et fasse joujou avec ?

[freud]

Bonsoir à tous,

Désolé je n'avais pas internet.
Je viens de m'en rendre compte que j'utilise le composant JvEnterAsTab1 de JVCL c'est lui qui court-circuite le 2eme edit mais je ne peux pas m'en passer car j'ai un autre tas d'EDIT organisés dans un onglet tandis que l'edit en question se trouve dans un panel

Aurais-tu un projet de démo pour qu'on regarde le source directement et fasse joujou avec ?

Voici le code de l'EDIT en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.edStartKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 
If Key=VK_RETURN Then
Begin
If edStart.Text<>'' then
cmdVoir.Click;
end;
end;

Même avec le deboggage ca ne passe pas à la ligne If Key=VK_RETURN Then en fait y a aucun passage dans l'evenement.

[mistercactus]

Salut,

Si je comprends bien ton dernier message, quand tu appuies sur une touche dans ton edit l'événement n'est même pas déclenché ?

Et si tu essaies de connecter un autre événement sur ton composant (genre un showmessage sur l'événement onChange), ça fonctionne ?

Sinon, si le problème vient du JvEnterAsTab1, tu peux essayer de t'en passer pour cet edit là, tu devrais trouver le nécessaire ici : https://delphi.developpez.com/faq/?p...-un-formulaire

[pprem]

Je viens de m'en rendre compte que j'utilise le composant JvEnterAsTab1 de JVCL c'est lui qui court-circuite le 2eme edit mais je ne peux pas m'en passer car j'ai un autre tas d'EDIT organisés dans un onglet tandis que l'edit en question se trouve dans un panel

Ok, parce que juste 2 TEdit dans un TForm, avec ou sans TForm.KeyPreview à True, le onKeyDown des TEdit intercepte bien le VK_RETURN

[freud]

Bonjour,

Et si tu essaies de connecter un autre événement sur ton composant (genre un showmessage sur l'événement onChange), ça fonctionne ?

Oui ca marche, bon je vais voir avec votre lien de la faq merci

[freud]

Bonsoir à tous,

Dans l’événement HandleEnter du composant JvEnterAsTab1 il faut ajouter la class TEdit je ne comprend pas pourquoi il n'en pas tenu compte en tout cas c'est réglé.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.JvEnterAsTab1HandleEnter(Sender: TObject;
  AControl: TWinControl; var Handled: Boolean);
begin
Handled := (AControl is TEdit) ;
end;

Ou on peut désactiver certains controles comme ceci:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.JvEnterAsTab1HandleEnter(Sender: TObject;
  AControl: TWinControl; var Handled: Boolean);
begin
Handled := (AControl is TButtonControl) and not (AControl is TCustomCheckBox) and not (AControl is TRadioButton);
end;

Je me suis gouré dans le 1er post, en faite le 1er edit qui marchait n'en etait pas un Tedit mais un TrxCalcEdit

Merci à tout le monde pour les interventions.