Discussion :

[Beauserge]

Bonsoir à tous

J'ai une fiche qui comporte des dizaines de TEdit (environ 50)
sur chaque Tedit, je dois vérifier s'il est vide lorsque j'entre dedans et si oui , j'ajoute le texte http://
ci-après exemple pour 2 Tedit et je dois faire cette vérif qui est identique pour tous les autres également

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Edweb1Enter(Sender: TObject);
begin
if (Edweb1.text)='' then
Edweb1.text:='http://'
end;
 
procedure TForm1.Edweb2Enter(Sender: TObject);
begin
if (Edweb2.text)='' then
Edweb2.text:='http://'
end;
 
etc .....

Ma question est :

y'a t'il moyen d'écrire une procédure qui vérifierait mon code à chaque fois que j'entre sur un de ces Edit sans être obligé de saisir l’évènement pour chaque Edit 50 fois?


Merci d'avance pour vos réponses

Cordialement
Beauserge

[FOCUS77]

Bonsoir,

Peut-être ça?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
  Var i:integer;
begin
for i:= 0 to ComponentCount -1  do
                begin
                if Components[i] is TEdit then
                 if TEdit(Components[i]).text = '' then
                 TEdit(Components[i]).text :='http://';
                 Application.ProcessMessages;
                end;
end;

[Cirec]

Bonsoir,

ou peut être comme ça:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.edWeb1Enter(Sender: TObject);
begin
  if Sender is TEdit then
    with TEdit(Sender) do
      if Text =  '' then
        Text := 'http://';
end;

et tu relies l'évènement OnEnter des 50 Edit à cette procédure par l'inspecteur d'objets

Cordialement,
@+

[Beauserge]

Bonsoir Focus77 et Cirec

J'ai testé vos 2 codes mais aucun n'affiche quelque chose dans les Edit ?

Je cherche mais pour l'heure sans résultat - Si vous avez d'autres pistes, je suis preneur

Bonnes soirée
Cordialement
Beauserge

[Cirec]

Bonsoir Focus77 et Cirec

J'ai testé vos 2 codes mais aucun n'affiche quelque chose dans les Edit ?

Je cherche mais pour l'heure sans résultat - Si vous avez d'autres pistes, je suis preneur

Bonnes soirée
Cordialement
Beauserge

Si mon code ne fonctionne pas c'est que tu as pas respecté les consignes
la ligne sous le code d'exemple est très importante:
"et tu relies l'évènement OnEnter des 50 Edit à cette procédure par l'inspecteur d'objets"
quand je propose le code en disant "ou peut être comme ça" c'était façon de parler ... pour te laisser le choix mais le code est 100% fonctionnel
sans aucun doute
il fonctionne de la même manière que ton exemple

Cordialement,
@+

[FOCUS77]

Bonjour,

voilà j'ai amélioré un autre code.

//uses windows ;
//keypreview:=true;

Code :

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

1
2
3
var
  Form1: TForm1;
  i:integer;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (key=VK_RETURN) and (i<componentcount) then
    begin
   if Components[i] is TEdit then
               if TEdit(Components[i]).Text='' then
 
                TEdit(Components[i]).Text:='http://';
                TEdit(Components[i]).SetFocus;
 
      i:=i+1;
   end;
end;

[Beauserge]

Bonjour à vous Cirec et Focus77

Ok c'est bon - ça fonctionne.

Toutes mes excuses - En fait Les Edit sont des composants TLabeledEdit ; c'est pour ça que rien ne n'affichait donc j'ai adapté votre code et c'est parfait.

Merci beaucoup à vous 2 pour votre scélerité à répondre

Et bon week-end Pascal (ça s'impose :-)
Cordialement
Beauserge