Delphiturbo
Messages postés68Date d'inscriptionmercredi 31 octobre 2007StatutMembreDernière intervention29 juillet 2008
-
29 mai 2008 à 15:01
Delphiturbo
Messages postés68Date d'inscriptionmercredi 31 octobre 2007StatutMembreDernière intervention29 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 !
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 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;