Discussion :

[PtiteDéveloppeuse]

Bonjour à tous,

J'ai une fenêtre dans laquelle il y a plusieurs TEdit et deux boutons : valider, annuler.

Lorsque ma fenêtre s'ouvre Edit1 a le focus.
L'utilisateur entre un code dans ce TEdit et j'ai un bout de programme qui doit s'exécuter dès que l'utilisateur appuie sur les touches TAB ou ENTREE.

J'ai essayé avec KeyDown, KeyUp et KeyPress, mais je ne sais pas comment déterminer si c'est bien une de ces deux touches qu'il a entrées.
Et avec OnExit, le code s'exécute même si l'utilisateur clique sur annuler par exemple !

Si quelqu'un a une idée, ça m'aiderait beaucoup.
Merci d'avance.

[yamino]

As-tu essayé :

Code :

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

1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #9) OR (Key = #13) then ...
end;

Sur ta Form bien mettre la propriété Keypreview à True

[PtiteDéveloppeuse]

Apparemment il ne rentre pas dans cet évènement, j'ai mis un point d'arrêt sur le IF et je n'y passe pas.

[michel71]

Bonjour,

Pour ma part voici un bout de code que j'utilise pour utiliser la touche entrée

Code :

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

1
2
3
4
5
6
procedure Taffiche.FormKeyPress(Sender: TObject; var Key: Char);
 
begin
if (Key=Char(VK_RETURN )) and (edit1.text<>'') then
begin
Key := #0;

Je teste si mon edit à une valeur de saisie
Si ça peut aider......

[PtiteDéveloppeuse]

Je ne sais pas pourquoi mais dans tous les cas il ne rentre pas dans KeyPress.
C'est peut-être parce que j'ai une version TurboDelphi gratuite...

[Aka Guymelef]

As-tu bien positionné sur ta fiche la propriété KeyPreview à True comme l'a indiqué Yamino ?

[Lung]

As-tu essayé :

Code :

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

1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #9) OR (Key = #13) then ...
end;

Pour moi, cette solution doit fonctionner.

Apparemment il ne rentre pas dans cet évènement, j'ai mis un point d'arrêt sur le IF et je n'y passe pas.

C'est pas normal.
Ton Edit utilise bien cet évènement ? Vérifie dans l'inspecteur d'objet.
Ton Edit est actif (Enabled = True) ?
Il n'est pas dans un Panel qui serait Enabled = False ?

[PtiteDéveloppeuse]

J'ai tout vérifié : le panel, le GroupBox et l'Edit et tout est à Enabled = True.
La franchement, j'ai beau chercher, je ne trouve vraiment pas.

[Kaféine]

Salut,

une form, 2 edits et 2 boutons

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
52
53
54
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;
    procedure FaisLeTaff(Edt: TEdit);
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.CMFocusChanged(var Message: TCMFocusChanged);
var
  Ctrl: TControl;
begin
  inherited;
  Ctrl :=  Message.Sender;
 
  if Ctrl is TEdit then
    FaisLeTaff(Ctrl as TEdit);
end;
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    if Sender is TEdit then
      FaisLeTaff(Sender as TEdit);
end;
 
procedure TForm1.FaisLeTaff(Edt: TEdit);
begin
  ShowMessage(Edt.Text);
end;
 
end.

...une piste à explorer