[Delphi5] TEdit informatif

Bonjour,

j'aimerai savoir s'il existe un TEdit capable de répondre à mes besoins. Ce serait de pouvoir afficher un message en grisé dans le TEdit qui ne serait pas une valeur par défaut, mais une info.

Par exemple je voudrais afficher <Nom> (en grisé) dans mon TEdit pour faire comprendre que dans cette case je veux un nom. Et dès que je clique à l'intérieur (dès qu'elle a le focus), cette "info" disparaisse. De plus, si possible, que cette information ne soit pas prise comme valeur lorsque je ne la change pas.

Existe-t-il ce genre de TEdit? Je n'en ai pas vu qui répondait à mes attentes dans le package Jedi.

Merci

Salut :D
Je ne connais pas un composant capable de faire ça, en revanche, créé un dérivé de TEdit qui fait ça est plutot facile ;) En interceptant WM_SETFOCUS ou en surchargeant SetFocused...

Salut et bienvenue sur ce forum.
Tu n'as besoin d'aucun composant specifique, tu peux utiliser TEdit de delphi5
ex Edit1 contient le Nom
tu initialises Font Color a clGray dans l'inspecteur d'objet
et tu utilises les deux evenement OnEnter et OnExit et c'est tout :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Font.Color := clWindowText; if lowercase(Edit1.Text) = 'nom' then Edit1.Text := ''; end;   procedure TForm1.Edit1Exit(Sender: TObject); begin if Trim(Edit1.Text) = '' then begin Edit1.Text := 'Nom'; Edit1.Font.Color := clGray; end; end;

---

Citation:

---

Envoyé par bernie.noel

Existe-t-il ce genre de TEdit? Je n'en ai pas vu qui répondait à mes attentes dans le package Jedi.

---

Pourtant le TJvEdit le fait :

EmptyFontColor := clGrayText;
EmptyValue := '(Nom)';

et le tour est joué !

Merci à tous pour ces réponses si rapides.

Le TJVEdit le fait très bien en effet

à bientôt

Pas de quoi nous sommes ici pour cela, mais n'oublie pas le tag :resolu: