Discussion :

[redrad]

Bonjour à tous,

Voici mon problème je souhaiterai limiter le texte dans une TextBox mais pas par la taille (c'est à dire sans MaxLength)mais par la position du curseur dans la textbox.Je m'explique lorsque l'on limite le nombre de caratère dans une TextBox quand je suis en minuscule je ne profite pas pleinement de la TextBox

Exemple :

ABCDEFGH
abcdefgh

Même nombre caratère alors que en minuscule j'aurai souhaité ajouter un caratère.

J'espère avoir était claire dans mes explications

Pour Info : j'utilise Delphi 6 Edition Perso

Merci d'avance

[mick605]

Salut

Voila une solution qui fonctionne, mais je sais pas si c'est la plus simple. En fait, tu crées un bitmap, pour bénéficier de la propriété TextWidth qui te renvoie la dimension du texte en pixel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var ABmp : TBitmap;
begin
  if Key<>#8 then
  begin
    ABmp:=TBitmap.Create;
    ABmp.Canvas.Font.Assign(Edit1.Font);
    if ABmp.Canvas.TextWidth(Edit1.Text)>=(Edit1.ClientWidth-5) then Key:=#0;
    ABmp.Free;
  end;
end;

Bonne chance

[redrad]

Salut

Voila une solution qui fonctionne, mais je sais pas si c'est la plus simple. En fait, tu crées un bitmap, pour bénéficier de la propriété TextWidth qui te renvoie la dimension du texte en pixel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var ABmp : TBitmap;
begin
  if Key<>#8 then
  begin
    ABmp:=TBitmap.Create;
    ABmp.Canvas.Font.Assign(Edit1.Font);
    if ABmp.Canvas.TextWidth(Edit1.Text)>=(Edit1.ClientWidth-5) then Key:=#0;
    ABmp.Free;
  end;
end;

Bonne chance

Merci beaucoup ça marche nickel