Discussion :

[lotfi.lahcene]

Salut les Gars ,
Alors je reviens avec mes questions de débutant...
lorsque l'utilisateur est sur un Tedit donnée et qu'il appui sur la touche Entrer du clavier c'est la ou doit intervenir mon code...
sur quel événement du Tedit dois je intervenir (pour ma part, je me suis dit OnKeyPress ou bien OnKeyUp) et puis quelle condition
'if <......???.> then <les instruction qui suivent>' dois je metre pour que delphi sache que c'etait le boutton 'Entrer' à été appuyé sur le clavier

Merci chers gens à lunettes !!!

[SergioMaster]

Bonjour,

pour moi, c'est le OnKeyPress

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Tform1.Edit1KeyPress(Sender : TObject; var Key : Char);
begin
 if Key=#13  then
 begin
   Key:=#0;
   SelectNext(Sender as TWinControl,true,true);
 end;   
end;

seul bémol, il faut qu'il y ait au moins un contrôle supplémentaire qui peut prendre le focus

N.B. je présume qu'il s'agissait d'une question VCL, il serait quand même bon de prendre l'habitude d'indiquer la version de Delphi et la cible (VCL ou FMX)

un gars qui porte des lunettes à cause de l'âge

[lotfi.lahcene]

Mes salutations,
merci pour la solution, mais sergio peux tu m'expliquer le la partie

if Key=#13 then
begin
Key:=#0;
SelectNext(Sender as TWinControl,true,true);
end;

pour ce qui est du Key:= #0 j'imagine que c'est pour libérer ou plutot réinitialiser la valeur par défaut, mais pour ce qui est du " SelecteNext(Sender as TwinControl,True,tre); " là c du brouillard pour moi...
mais pour la curiosité des lecteur...le probleme à été résolu ...
j’espère que la petite taquinerie des gens à lunette ne fut pas de mauvais gout !!!
Merci

[Cirec]

Salut,

Mes salutations,
merci pour la solution, mais sergio peux tu m'expliquer le la partie

pour ce qui est du Key:= #0 j'imagine que c'est pour libérer ou plutot réinitialiser la valeur par défaut, mais pour ce qui est du " SelecteNext(Sender as TwinControl,True,tre); " là c du brouillard pour moi...
mais pour la curiosité des lecteur...le probleme à été résolu ...
j’espère que la petite taquinerie des gens à lunette ne fut pas de mauvais gout !!!
Merci

Un tour sur http://docwiki.embarcadero.com et hop:SelectNext

Cordialement,
@+

[ShaiLeTroll]

Un grand classique avec un douchette à code barre qui termine sa saisie par ENTER

un code écrit la semaine dernière

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//------------------------------------------------------------------------------
procedure TModuleLogistiqueExpeditionChargementForm.edColisKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (Sender is TCustomEdit) then
  begin
    TCustomEdit(Sender).SelectAll();
    AjoutColisDansExpedition(TCustomEdit(Sender).Text);
    if Enabled then
      TCustomEdit(Sender).SetFocus();
  end;
end;