Discussion :

[lila23]

bonjour tout le monde ,

j'aimerais savoir comment faire pour que la taille de mes edits soit fixe à la création de la forme mais dés qu'ils se remplissent elles devient proportionnelle au contenu est ce possible
merci

[ero-sennin]

Salut ,

Je te propose de mettre ce code dans le OnChange du TEdit en question :

Code :

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

Edit1.Width := Canvas.TextWidth(Edit1.Text)+12;

Evidemment, par la suite, ça dépend de la police, de la taille, il faudra peut-être ajuster
En passant, je te donne une info qui je pense te sera utile ...
Si tu veux que tes TEdits aient une longueur minimale à ne pas dépasser, tu peux mettre cette valeur dans la propriété Constraints->MinWidth

En espérant t'avoir aidé,
A+

[Aka Guymelef]

Bonjour.

En positionnant la propriété AutoSize du TEdit à True, est-ce que ça ne règle pas votre problème ?

[ero-sennin]

Salut Aka,

Bonjour.

En positionnant la propriété AutoSize du TEdit à True, est-ce que ça ne règle pas votre problème ?

D'après l'aide, AutoSize n'ajuste que la hauteur du contrôle de saisie ...

Bonjour;
voilà c'est pas optimale mais ça marche

Code :

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

1
2
3
4
5
6
7
8
var v:string;
n:integer;
begin
v:='sssssssssssssssssssssssssssssssssssssssssssss';
n:=length(v);
Edit1.Width:=length(v)*6;
edit1.Text:=v;
end;

en fait sa dépend de la taille de police dans votre edit.
bon courrage.

Je dirai qu'il vaut mieux faire un TextWidth de la chaîne que de devoir mettre en dur une chaine dans le code ...
De plus, si tu regardes bien, lorsque tu ne mets aucun texte dans ton TEdit à une taille qui n'est pas égal à son contenu....

Je chipote mais bon, c'est une petite remarque (et non une critique)

[sam83]

Bonjour;
voilà c'est pas optimale mais ça marche

Code :

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

1
2
3
4
5
6
7
8
var v:string;
n:integer;
begin
v:='sssssssssssssssssssssssssssssssssssssssssssss';
n:=length(v);
Edit1.Width:=length(v)*6;
edit1.Text:=v;
end;

en fait sa dépend de la taille de police dans votre edit.
bon courrage.

[lila23]

rebonjour tout le monde ,

merci a tous pour vos réponses j'ai testé la solution d'ero ca marche bien

encore merci

[lila23]

en fin de compte ca marche pas il ne prend pas la taille exacte du contenu

moi ce que je veux cest laisser des tailles fixes au départ et d'aprés le contenu les edits auront la taille du contenu

merci

[ero-sennin]

Re,

en fin de compte ca marche pas il ne prend pas la taille exacte du contenu

moi ce que je veux cest laisser des tailles fixes au départ et d'aprés le contenu les edits auront la taille du contenu

merci

Je ne vois pas trop ce qui pose soucis ? Tu as bien mis dans la propriété Constraints->MinWidth la taille minimale que dois avoir un TEdit ?
Par exemple, lors de la conception, ton TEdit à une taille fixe qui vaut 100 par exemple (propriété Width du TEdit).
Si tu ne veux pas que ton TEdit ait une taille inférieur à 100 lorsque tu le renseignes, tu mets 100 dans la propriété Constraints->MinWidth du TEdit...

En fait je dis ça, mais tout dépend ce que tu souhaites faire ... Je suis parti du principe que tu voulais agrandir la zone du TEdit qu'à partir d'une certaine longueur de texte ...
Peut-être ai-je mal compris ?

[lila23]

en fait ce que je veux cest:
alors dans me forme j'ai déposé plusieurs edits qui ont une taille par dans linspecteur d'objet mai kan je le ai déposé ce que je veu cest que d'aprés le contenu aprés une recherche ou kan je les rempli la taille du cimposan edit sagrandi si jen ai besoin ou quil devienne proportionnel au contenu

merci