slt

Question

je voudrai limiT le nombre de caractere d'un Edit comment je pourrai faire ?? 
merci d'avance

cs_Nono40 · Answer

Tu peux utiliser le TMaskEdit à la place du TEdit, ou mettre le code suivant dans le OnChange d'un TEdit :
procedure TForm1.Edit1Change(Sender: TObject);
Var i:Integer;
begin
  i:=Edit1.SelStart;
  If Length(Edit1.Text)>10
  Then Begin
    Edit1.Text:=Copy(Edit1.Text,1,10);
    Edit1.SelStart:=i;
  End;
end;

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

thone08 · Answer

merci

cs_Delphiprog · Answer

Ou utiliser la propriété MaxLength du composant TEdit ! (LOL)

May Delphi be with you

cs_Nono40 · Answer

Tiens j'ai encore appris quelque-chose aujourd'hui...

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

djeckelle · Answer

Bonjour, Sur le même thème moi j'ai besoin d'aide pour utiliser le Tmaskedit afin de tester que mes deux premiers caractères ne sont pas des alphas.

Merci d'avance du doup de pouce

Slt

5 réponses

Votre réponse