Discussion :

[elkader]

Bonjour.

Je voudrais mettre un texte dans un TEdit, comme dans le code HTML suivant :

Code HTML :

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

<input type="text"  placeholder="entrer le prenom" name="prenom">

Merci d'avance.

[gbegreg]

Bonjour,

Tu peux utiliser le composant TButtonedEdit (dans la rubrique standard). Il dispose de la propriété Text qui correspond au texte saisit par l'utilisateur, et de la propriété TextHint qui est le texte affiché dans le TButtonedEdit lorsque celui est vide.

[elkader]

Bonjour,

Tu peux utiliser le composant TButtonedEdit (dans la rubrique standard). Il dispose de la propriété Text qui correspond au texte saisit par l'utilisateur, et la propriété TextHint qui est le texte affiché dans le TEDit lorsque celui est vide.

merci pour votre reponse mais ;
le textEdit mettre un texte dans le Edit et apres que tu veux faire une connexion a la base de donnee et tu click sur button de recupperation du ce champs ,si tu ne cencentre bien tu laisse ce champs avec la valeur initiale qui se strouve dans textEdit;
merci d'avance.

[SergioMaster]

Bonjour,

Quelle version de Delphi ? Quel type de programme VCL ou FMX ?

[elkader]

Bonjour,

Quelle version de Delphi ? Quel type de programme VCL ou FMX ?

Merci de vous intéresser à mon problème. C'est Delphi 7.

[gbegreg]

Désolé mais je ne comprends pas...
Le TButtonedEdit permet justement d'avoir également des boutons (à droite ou à gauche du champ Edit) qui permettent d’enclencher des actions (exécution d'une requête SQL par exemple). Si la requête ne renvoie rien, la zone d'édition est vide et du coup la valeur de TextHint sera affichée dans le champ Edit.

Delphi 7.

Je ne pense pas que le TButtonedEdit était présent dans cette version de Delphi...

[Charly910]

Bonjour,

En D7, je pense qu'il faut le faire "à la main" :

- au départ, mettre le texte "Entrer votre prénom" dans le Text du TEdit avec une font en gris
- dans le onEnter du TEdit : Effacer le texte, mettre la Font en normal et attendre la frappe de l'utilisateur

A+
Charly

PS : Je n'ai pas testé si cela fonctionne bien

[Cirec]

Bonjour,

pour D7 c'est simple:
sur une Fiche déposez un TXPManifest (indispensable) un TButton
et un TEdit et complétez comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
const
  EM_SETCUEBANNER             = $1501;
  EM_GETCUEBANNER             = $1502;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Value: WideString;
begin
  Value := 'Entrez votre Texte ici';
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, LPARAM(PWideChar(Value)));
end;

je précise que ce texte se voit que si le TEdit est vide (Text := '') et que le TEdit n'ait pas le Focus.

pour que Cue Banner s'affiche aussi quand l'Edit à le focus:

Code :

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

  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 1, LPARAM(PWideChar(Value)));

Cordialement,
@+