SpinEdit Format ?

Résolu
Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 29 mai 2008 à 15:01
Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 29 mai 2008 à 16:47
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

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
29 mai 2008 à 16:17
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="" />
3
Rejoignez-nous