Événement répétitif et identique sur des dizaines de TEDIT

Version imprimable

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:

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

Bonsoir,

Peut-être ça?

Code:

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;

Bonsoir,

ou peut être comme ça:
Code:

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,
@+

15/04/2017, 00h13
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
15/04/2017, 02h19
Cirec

Citation:

Envoyé par 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

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,
@+

Bonjour,

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

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

Code:

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

Code:

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;

15/04/2017, 12h15
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