Discussion :

[jmjmjm]

Voila quand mon champ est remplis je souhaite passer au suivant j'utilise j'usqu'a maintenant if ..... then .....setfocus;
Mais comme je dois le faire pour pas mal de champ je souhaiterais ne pas avoir a rentrer edit1.setfocus par exemple mais je souhaiterai faire un focus.next afin de passer au suivant dans la tabulation est ce possible

[sjrd]

Il y a la méthode FindNextControl de TWinControl pour cela :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.EditsChange(Sender: TObject);
var Edit : TEdit;
begin
  Edit := TEdit(Sender);
  if Length(Edit.Text) = LongueurMax then
    FindNextControl(Edit, True, True, True).SetFocus;
end;

[jmjmjm]

Merci sjrd c'etait juste le findnextcontrol qui me manquait !