Discussion :

[miss-unknown]

Bonjour à tous ;

Je veux avoir plus d'information sur les edit.setfocus car j'utilise cette méthode pour contrôler les tabulations mais ça ne marche pas ?? alors comment faire pour bien les contrôler.Merci

Code :

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

1
2
3
4
5
6
7
 
procedure Tfiche.Edit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
edit3.SetFocus;
end;

[guillemouze]

Tu peux essayer ce bout de code (c'est ce qui est lancé sur tab) :

Code :

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

1
2
3
4
5
6
7
8
type
  TFakeWinControl = class(TWinControl); //petite astuce pour acceder a SelectNext qui est protected
 
procedure Tfiche.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = VK_RETURN then
    TFakeWinControl(TWinControl(Sender).Parent).SelectNext(TWinControl(Sender), True, True);
end;

[ShaiLeTroll]

Attention entre OnKeyDown et OnKeyPress le comportement est différent

Souvent, je mets un code de validation dans le OnKeyDown VK_RETURN alors pour éviter de tout mélanger,
en particulier l'utilisation de Entrée comme équivalent de Tabulation,
je le mets dans le OnKeyPress que je n'utilise que pour ce genre de contrôle (en D6, j'avais aussi IsNumeric qui n'est plus utile en XE2 )

pour l'approche avec OnKeyPress, je me suis fait une fonction en D7 qui j'ai transformé en Helpers en XE2

Code :

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

1
2
3
4
procedure TForm.edAllKeyPress(Sender: TObject; var Key: Char);
begin
  EnterAsTab(Key);
end;

Dans une unité que l'on ajoutera en uses

Code :

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

1
2
3
4
5
6
7
8
type
  TFormSliteHelper = class helper for TForm
  public
    /// <summary>EnterAsTab permet de gérer un ENTER comme la touche TAB pour naviguer de controle en controle</summary>
    function EnterAsTab(var Key: Char): Boolean;
    procedure SelectNextControl();
    procedure SelectPriorControl();
  end;

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
//------------------------------------------------------------------------------
function TFormSliteHelper.EnterAsTab(var Key: Char): Boolean;
begin
  if Key = Chr(CarriageReturn) 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;
 
//------------------------------------------------------------------------------
procedure TFormSliteHelper.SelectNextControl();
begin
  // TControl.SelectNext est une méthode protégée
  // le plus simple pour passer au controle suivant c'est le message Windows
  Self.Perform(WM_NEXTDLGCTL, 0, 0);
end;
 
//------------------------------------------------------------------------------
procedure TFormSliteHelper.SelectPriorControl();
begin
  // If wParam is zero, the next control receives the focus; otherwise, the previous control with the WS_TABSTOP style receives the focus.
  Self.Perform(WM_NEXTDLGCTL, 1, 0);
end;