Discussion :

[medkyl]

Bonjour,
je cherche à mettre une valeur maxi dans un Tedit.
merci de votre aide.

J'ai essaie avec keypress sans succès

Code :

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

1
2
3
4
5
6
7
 
 
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if StrToCurr(edit1 .Text) > 120 then
    Key := #0;
end;

[skywaukers]

Bonjour,

A ce moment là Edit1.Text ne contient pas encore le caractère que tu viens de saisir, il faut donc l'ajouter :

Code :

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

1
2
3
4
5
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if StrToCurr(edit1.Text + Key) > 120 then
    Key := #0;
end;

@++
Dany

[medkyl]

merci Dany pour ta réponse.
j'ai déja essayé mais sans succès, comment gérer la frappe si on selectionne ex: 111 et remplace par 1 le result edit1.Text + Key = 1111
ou dans le cas 113 et je remplace le deuxieme chiffre edit1.Text + Key ( 113 + 2)
merci

[tourlourou]

pê dans le OnChange, à condition de mémoriser l'ancienne valeur.

dans ce cas, autant le dériver en compo

ou utiliser le SpinEdit ?

[medkyl]

merci tourlourou

jvSpinEdit c'est ce que je cherchais.