Discussion :

[jackvpt]

Bonjour à toutes et à tous,

J'ai une boite de dialogue avec des DBRichEdit et j'aimerais que le texte contenu dans ceux-ci soit sélectionné dès que le composant a le focus.

Pour l'instant je place dans l'événement OnEnter le code:

Code :

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

DBRichEdit.SelectAll;

Je suis obligé de faire ça avec chaque composant (une trentaine ) ou il existe un moyen de choisir cette option lors la conception de la fiche ?

Merci de votre aide.

[philnext]

Tu peux au choix :
1/ Créer un seul OnEnter (pour le 1er composant par exemple) et faire pointer tous les suivants dessus chaque fois que tu en crées un nouveau.
ou
2/ Créer un seul OnEnter (pour le 1er composant) et, lors du ONCreate de ta fiche faire une procedure qui cherche tous les composants qui t'intéressent et faire en sorte que leur OnEnter pointe sur celui que tu as créé.

[jackvpt]

Ca serait effectivement plus simple .

Sauf que je ne sais (pas encore) comment indiquer le bon composant.
Tu peux juste me donner un exemple de code s'il te plait ?

[mick605]

Salut

Utilises FindComponent ... Si tes edits se nomment Edit1, Edit2, Edit3 , tu fais

Code :

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

1
2
3
4
5
for i:=1 to N do
begin
  FindComponent('Edit'+IntToStr(i));
  //Traitement
end;

Bonne chance

[Rayek]

Ca serait effectivement plus simple .

Sauf que je ne sais (pas encore) comment indiquer le bon composant.
Tu peux juste me donner un exemple de code s'il te plait ?

Simplement

Code :

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

1
2
3
4
5
6
 
procedure TForm1.RichEdit1Enter(Sender: TObject);
begin
  if Sender is TRichEdit then
    TRichEdit(Sender).SelectAll;
end;

[jackvpt]

Merci à vous trois pour vos réponses


J'ai utilisé la méthode de Rayek et ça marche impec.



Bonne journée à tous