[Delphi5] TEdit informatif

**bernie.noel** · 13/10/2005, 13h53

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

**Pedro** · 13/10/2005, 13h58

Salut

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...

**delphichem** · 13/10/2005, 14h04

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

Code :

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

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;