SpinEdit Format ?

[Résolu]
Signaler
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
-
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
-
Salut,
UpDown n'accepte pas le Value que je done avec keyborad
Il demare toujour de 0 !!!
Comment eviter cet Probleme ?

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
Edit1.text := Format('%.5d', [UpDown1.Position]); // ok
end;

Et si j'etulise SpinEdit, c est bien mais il ya des Problem
1. les Fleches restont petite !
2. Format : si je donne 00001 et je clique sur UpDown, il sera 2 et pas 00002 !
et si je donne cette Format:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
SpinEdit1.Text := Format('%.5d', [UpDown1.Position]);// no !
end;
le code ne marche pas !

merc

2 réponses

Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,

dans le OnCreate la fiche (ou ailleurs)
procedure TForm1.FormCreate(Sender: TObject);
begin
  UpDown1.Position := 111;
  UpDown1.OnClick(Self, btNext);
end;

 
@+
Cirec

<hr siz="" />
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008

merci. Sa marche