TEdit dynamique - Width automatique

Version imprimable

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:
Code:

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;
Text_Length renvoie la longueur du texte en pixels.
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

21/11/2013, 23h20
Andnotor

Et pourquoi ne pas assigner une méthode OnKeyPress à chaque TEdit créé dynamiquement ? Ainsi Sender représenterait le champ en cours.

Citation:

Envoyé par BBouille

Lorsque je remplace TEdit(findComponent('myEdit' + intToStr(compteurEdit))) par Edit1 par exemple ça fonctionne

Et bien il faut croire que le nom recherché n'existe pas ;)
22/11/2013, 00h04
BBouille

Bonsoir,

si, je peux écrire dans chaque TEdit dynamique mais je ne parviens pas à modifier la longueur.
Justement je ne vois pas comment assigner la méthode OnKeyPress à chacun d'eux.

Cordialement.

BB

Citation:

Envoyé par BBouille

Bonsoir,

si, je peux écrire dans chaque TEdit dynamique mais je ne parviens pas à modifier la longueur.
Justement je ne vois pas comment assigner la méthode OnKeyPress à chacun d'eux.

Cordialement.

BB

Code:

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
 
type
  TForm1 = class(TForm
  ...
  private
    procedure AddEdit;
    procedure EditKeyPress(Sender: TObject; var Key: Char);
  end;
...
procedure TForm1.AddEdit;
var
  Edit: TEdit;
begin
  Edit := TEdit.Create(Self);
  Edit.Parent := Self;
  Edit.OnKeyPress := EditKeyPress;
end;
 
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
var
  Len, Longueur_Depart: integer;
  Edit: TEdit;
begin
  edit := TEdit(Sender);
 Longueur_Depart:=16;
 Len:= Text_Length(Self, Edit);
 Edit.Width := Longueur_Depart + Len;
End;

22/11/2013, 15h53
BBouille

Super Paul ça marche,

en fait j'étais passé par pas mal de possibilités car je dois pouvoir détecter le caractère ^ pour déclarer un exposant.
Alors j'avais essayé avec le OnKeyPress, Up,... et je n'y arrive pas.
Ce caractère lorsqu'on le tape attend un autre caractère mais comme ce n'est pas le même cas qu'avec un shift ou un ctrl je n'ai pas pu trouver sur le Net comment détecter cette touche.

Une autre petite question de principe, cette procédure est déclarée comme ci-dessous:

Code:

EditKeyPress(Sender: TObject; var Key: Char);

et pourquoi ne déclare-t-on pas les paramètres ici?:

Code:

Edit.OnKeyPress := EditKeyPress;

Encore merci à toi.

BB
22/11/2013, 16h42
Andnotor

Citation:

Envoyé par BBouille

pourquoi ne déclare-t-on pas les paramètres ici?

Parce qu'il ne s'agit pas d'une déclaration mais uniquement de l'assignation d'un pointeur de méthode ;)
22/11/2013, 16h47
Paul TOTH

Citation:

Envoyé par BBouille

Super Paul ça marche,

en fait j'étais passé par pas mal de possibilités car je dois pouvoir détecter le caractère ^ pour déclarer un exposant.
Alors j'avais essayé avec le OnKeyPress, Up,... et je n'y arrive pas.
Ce caractère lorsqu'on le tape attend un autre caractère mais comme ce n'est pas le même cas qu'avec un shift ou un ctrl je n'ai pas pu trouver sur le Net comment détecter cette touche.

Une autre petite question de principe, cette procédure est déclarée comme ci-dessous:

Code:

EditKeyPress(Sender: TObject; var Key: Char);

et pourquoi ne déclare-t-on pas les paramètres ici?:

Code:

Edit.OnKeyPress := EditKeyPress;

Encore merci à toi.

BB

car la procédure est déjà déclarée, ici on ne fait que donner son nom comme méthode a invoquer quand l'événement se produira.
24/11/2013, 19h01
BBouille

Merci à vous deux,

encore un petit pas de compréhension aux objets franchi.
Et si jamais un petit programmeur comme moi tombait sur ce post au cas où il voudrait détecter la touche ^ ben il faut utiliser OnKeyUp ou OnKeyDown et non pas OnKeyPress.

Bien à vous.

BB