Salut,

Je cherche comment configurer l'environnement de Delphi 7 pour me permettre de confirmer avec la touche ENTRE  dans les zones de saisies aulieu d'utiliser la touche TAB. Parce  que à chaque fois pour utiliser la Touche ENTRE je dois mette la procedure ci-dessous :

procedure TwInvPhy.CurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (KEY = VK_Return) then
   CurrencyEdit2.SetFocus;
end;

Y-t'il pas moyen de congifurer Delphi pour que celà soit automatique ?

A+
Cobuce

 

non ...
tu es obliger de faire comme cela.

---

Croc (click me)

Salut Cobuce.

Voici une procedure qui passe le focus au composant Edit suivant. Donc une seule procedure pour tous les Edits (du même parent). Evenement KeyPress de Edit2 = Edit1KeyPress... 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   with (Sender as TEdit) do
      if Key = Char(VK_RETURN) then
      begin
          Key:= #0;
          PostMessage(Parent.Handle, WM_NEXTDLGCTL, 0, 0);
      end;
end;

Salut
A +
Thierry

Salut Thwilliam,

Merci pour la procedure, lorsque j'essai, cela ne semble pas  avancer. Il y a un message d'erreur du genre "Invalid class typecast" lorsque j'appuis juste sur une touche dans la zone Edit1. Que dois-je faire ?
A+
Cobuce

 

Désolé Cobuce, mais il ne devrait pas y avoir d'erreur si uniquement des TEdit ont accès à la procédure ci-dessus.
Pour voir d'où vient l'erreur, tu peux remplacer :    with (Sender as TEdit) 
par :   with (Sender as TWinControl)

A +
Thierry

ou alors tu peux faire if Sender is TEdit then ...

[:)] [url="http://www.sbibuilder.fr.st/"][big_fury]SiZiOUS[/url] [:)]

salut Cobuce,

je voudrai bien utiliser votre methode pour passer d'un edit à un edit par la touche

Entree. Vous voulez bien m'expliquer la maniere comment je dois ecrire les procedures.

 Procedure edit1
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   with (Sender as TEdit) do
      if Key = Char(VK_RETURN) then
      begin
          Key:= #0;
          PostMessage(Parent.Handle, WM_NEXTDLGCTL, 0, 0);
      end;
end;
Procdure Edit2

 Evenement KeyPress de Edit2 = Edit1KeyPress... 
je n'ai pas compris cela. comment dois je ecrire la procedure Edit2.

Salut belaid52,

Tu ne dois pas écrire de procedure pour Edit2.
Dans l'inspecteur d'objets, tu assignes simplement l'événement OnKeyPress de ton Edit2 à la procedure Edit1KeyPress que tu cherches dans la boîte déroulante. Et ainsi de suite pour tous les autres Edit.
A +
Thierry

Salut Cobuce,

Merci ca a marché,

maintenant pour un keypress qui utilse un key : Word

comment je peux reecrire la forme suivante :
   procedure TForm_ConsultBl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  not (Key in [#8, #13, '0'..'9']) then Key := #0;
end;
dans :
        procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
      begin
      if not(Key............
     end;