[D7] Équivalent de l'attribut HTML PlaceHolder

**elkader** · 29/12/2017, 10h55

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** · 29/12/2017, 11h19

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** · 29/12/2017, 11h29

Envoyé par 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 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** · 29/12/2017, 11h35

Bonjour,

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

**elkader** · 29/12/2017, 12h04

Envoyé par SergioMaster

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** · 29/12/2017, 13h29

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.

Envoyé par elkader

Delphi 7.

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

**Charly910** · 29/12/2017, 14h31

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** · 29/12/2017, 15h14

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

**Charly910** · 29/12/2017, 16h14

Bonjour Cirec,

je pense que ce n'est pas tout à fait ce qu'il veut ? Avec PlaceHolder, le texte "Entrer votre texte ici" est dans le TEdit en grisé. Quand l'utilisateur entre une valeur le texte grisé s'efface et la texte entré prend sa place.

A+
Charly

**Cirec** · 29/12/2017, 17h23

Envoyé par Charly910

Bonjour Cirec,

je pense que ce n'est pas tout à fait ce qu'il veut ? Avec PlaceHolder, le texte "Entrer votre texte ici" est dans le TEdit en grisé. Quand l'utilisateur entre une valeur le texte grisé s'efface et la texte entré prend sa place.

A+
Charly

je ne connais pas le fonctionnement du PlaceHolder mais ce que tu me décris c'est ce que ma méthode fait !
au passage la méthode que j'emploie ne fait qu'utiliser une fonction prévue par Windows depuis XP
ici c'est nommé Cue Banner et d'après une rapide recherche :
PlaceHolder == Cue Banner

Donc c'est exactement le comportement attendu

Fait le teste (je suppose que tu ne l'as pas fait vu le commentaire

)

Cordialement,
@+

**Charly910** · 29/12/2017, 18h46

Oui tu as raison c'est bien le fonctionnement de PlaceHolder.

Ce qui m'a trompé c'est le Button1. J'ai fait tout mis dans OnShow :

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.FormShow(Sender: TObject);
var
  Value: WideString;
begin
  Value := 'Entrez votre Texte ici';
  SendMessage(Edit1.Handle, EM_SETCUEBANNER, 1, LPARAM(PWideChar(Value)));
end;

et ça marche parfaitement

A+
Charly

**Cirec** · 29/12/2017, 19h04

Envoyé par Charly910

Oui tu as raison c'est bien le fonctionnement de PlaceHolder.

c'est bien ce que je me disais

voici une autre version plus "souple" & plus réutilisable

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
const
  EM_SETCUEBANNER             = $1501;
  EM_GETCUEBANNER             = $1502;
 
function Edit_SetCueBannerText(hwnd: HWND; CueText: PWideChar; ShowOnFocus: Boolean = True): BOOL;
begin
  Result := BOOL(SendMessage(hwnd, EM_SETCUEBANNER, wParam(ShowOnFocus), lParam(CueText)));
end;
 
function Edit_GetCueBannerText(hwnd: HWND; CueText: PWideChar; BufLen: Longint): BOOL;
begin
  Result := BOOL(SendMessage(hwnd, EM_GETCUEBANNER, wParam(CueText), lParam(BufLen)));
end;
 
// utilisation de Edit_SetCueBannerText
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit_SetCueBannerText(Edit1.Handle, 'Entrez votre Texte ici');
  Edit_SetCueBannerText(Edit2.Handle, 'Votre nom');
end;
 
// utilisation de Edit_GetCueBannerText
procedure TForm1.Button1Click(Sender: TObject);
var
  aCueTxt: array[0..255] of WideChar;
begin
  if Edit_GetCueBannerText(Edit1.Handle, aCueTxt, 256) then
    Label1.Caption := aCueTxt;
end;

Cordialement,

@+

**elkader** · 30/12/2017, 12h06

Je voudrais savoir comment utiliser la solution proposée par Cirec.

**elkader** · 30/12/2017, 14h07

Je n'y arrive pas.

**elkader** · 30/12/2017, 14h12

VOICI LE CODE :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
const
  EM_SETCUEBANNER             = $1501;
  EM_GETCUEBANNER             = $1502;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Value: WideString;
begin
//form1.Color:=Clred    ;
 
  Value := 'Entrez votre Texte ici';
  SendMessage(Form1.Edit1.Handle, EM_SETCUEBANNER, 1, LPARAM(PWideChar(Value)));
end;
 
 
end.

**elkader** · 30/12/2017, 16h44

Je suis fier de moi. Merci pour votre aide.

Attention, il faut mettre XPManifest1: TXPManifest; à ton programme sinon il ne marche pas.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
const
  EM_SETCUEBANNER             = $1501;
  EM_GETCUEBANNER             = $1502;
implementation
 
{$R *.dfm}
 
 function Edit_SetCueBannerText(hwnd: HWND; CueText: PWideChar; ShowOnFocus: Boolean = True): BOOL;
begin
  Result := BOOL(SendMessage(hwnd, EM_SETCUEBANNER, wParam(ShowOnFocus), lParam(CueText)));
end;
 
function Edit_GetCueBannerText(hwnd: HWND; CueText: PWideChar; BufLen: Longint): BOOL;
begin
  Result := BOOL(SendMessage(hwnd, EM_GETCUEBANNER, wParam(CueText), lParam(BufLen)));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
         Form1.Color:=Clred;
          Edit_SetCueBannerText(Edit1.Handle, 'Entrez votre Texte ici');
 
end;
 
end.

Cordialement.