Discussion :

[rec82]

salut.
y t'il une truc simple pour basculer entre les champs avec le button Entré sans utiliser le teste de Onkeypress :

Code :

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

1
2
3
 
if key=#13 then
dbedit1.SetFocus; //dbedit comme exemple

une truc ressemble au Tab Order... de delphi .
merci A+

[Droïde Système7]

Salut,

Par exemple :

Code :

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

  if key = VK_RETURN then perform(WM_NEXTDLGCTL,0,0);

@+

[BuzzLeclaire]

Autre solution

Tu créé 2 procédures

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
Type
...
    procedure SetFocusNextEdit;
    procedure SetFocusPreviousEdit;
 
implementation
 
// ...
procedure TForm1.SetFocusNextEdit;
begin
  repeat
    Perform(WM_NEXTDLGCTL, 0, 0);
  until ActiveControl is TDBEdit; // <= Selon le type de control
end;
 
procedure TForm1.SetFocusPreviousEdit;
begin
  repeat
    Perform(WM_NEXTDLGCTL, -1, 0);
  until ActiveControl is TDBEdit; // <= Selon le type de control
end;

Ensuite dans chacun de tes KeyDown de tes dbEdit (ou autre control)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.DBEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ActiveControl is TCustomEdit  then
  Begin
    case Key of
      VK_DOWN, VK_NEXT, VK_RETURN, VK_Tab: SetFocusNextEdit;
      VK_UP, VK_PRIOR: SetFocusPreviousEdit;
    end;
  end;
end;

Bye

[Urgoth66]

Salut,

Tu peux aussi utiliser un TApplicationEvents.
Simple composant que tu poses sur la fiche et qui recevra l'ensemble des message transmis.

L'utilisation ensuite consistera à détecter la touche Entrée.

Code :

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

1
2
3
4
5
6
7
if Msg.message = WM_KEYDOWN then
begin
  if Msg.wParam := VK_RETURN then
  begin 
    // tu place ici le code que tu veux effectuer.
  end;
end;

@+

[BuzzLeclaire]

On ne sauras jamais ce qu'il a fait.


A oh fait...

De rien.