Discussion :

[Thierry Laborde]

Bonjour à tous,

J'aimerais savoir comment trouver la longueur du texte que l'on a saisi dans un edit (La longueur en pixel bien sur et pas en nombre de lettre).
En fait je souhaite savoir si le texte que j'ai saisi dans mon Edit est plus grand que mon Edit.
J'ai cherché mais rien trouvé concernant ça.
Quelqu'un à une idée ?

Merci d'avance.

[denokan]

ceci semble fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
  aCanvas : TCanvas;
begin
  aCanvas := TCanvas.Create;
  aCanvas.Handle := CreateDC('DISPLAY', nil, nil, nil);
  aCanvas.Font.Assign(Edit1.Font);
  Caption := IntToStr(aCanvas.TextWidth(Edit1.Text));
  DeleteDC(aCanvas.Handle);
  aCanvas.Free;
end;

[Cl@udius]

Salut,

Est-ce que ceci répondrait à la question ?
http://delphi.developpez.com/faq/?pa...imensionstexte

@+

[pirbd]

Tu peux utiliser Canvas.TextWidth('mon texte')

[slimjoe]

Tu peux utiliser Canvas.TextWidth('mon texte')

Le problème c'est que Canvas n'est pas disponible pour le TEdit (protected). C'est pour ça que denokan créé une nouvelle instance de TCanvas, lui assigne la Fonte du TEdit et utilise sa méthode TextWidth.

[pirbd]

Le problème c'est que Canvas n'est pas disponible pour le TEdit (protected). C'est pour ça que denokan créé une nouvelle instance de TCanvas, lui assigne la Fonte du TEdit et utilise sa méthode TextWidth.

Effectivement, j'ai posté sans voir les reponses ...
Je crois qu'on se dirige vers un post [resolu]

[Thierry Laborde]

Ca au moins c'est du post vite ouvert et super vite résolu . Merci à tous pour toutes vos réponses, Denokan me fourni la réponse parfaite.
Merci encore.