Bonjour à tous,
je cherche à adapter la longueur (Width) d'un TEdit en fonction de la longueur en pixels du texte en cours de frappe.
Au départ le TEdit a une longueur de 16 pixels par exemple et au fur et à mesure de l'encodage la longueur du TEdit croît.
Ça marche avec un TEdit mais avec le même composant en dynamique je ne vois pas comment le faire.
Je crée autant de TEdit que nécessaire et pour chacun d'eux je voudrais appliquer le même principe.
Je vous joins le code correspondant:
Text_Length renvoie la longueur du texte en pixels.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure TFormulaire.FormKeyPress(Sender: TObject; var Key: Char); var Len, Longueur_Depart: integer; begin Longueur_Depart:=16; Len:= Text_Length(Self, TEdit(findComponent('myEdit' + intToStr(compteurEdit)))); TEdit(findComponent('myEdit' + intToStr(compteurEdit))).Width := Longueur_Depart + Len; End;
Len est la longueur en cours.
Lorsque je remplace TEdit(findComponent('myEdit' + intToStr(compteurEdit))) par Edit1 par exemple ça fonctionne mais comment le faire comprendre aux TEdit dynamiques?
Si quelqu'un pouvait m'aider ça m'arrangerait drôlement.
BB
Partager