Delphi - TUpDown decimali

Forum - Delphi - TUpDown decimali

_FOX_ (Normal User)
Newbie

Messaggi: 7
Iscritto: 30/12/2013

Postato alle 11:41
Lunedì, 30/12/2013

Avrei bisogno di ottenere incrementi di 0.1 cliccando sulle frecce del componente TUpDown. Questo però non accetta valori decimali per la proprietà increment. C'è una soluzione o una alternativa al problema?

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 18:11
Lunedì, 30/12/2013

si, molto semplicemente metti un Tedit e due tbutton, e a ognuno assegni il valore che c'è nel tedit di l'incremento o il decremento di quanto vuoi, esempio 0.1

_FOX_ (Normal User)
Newbie

Messaggi: 7
Iscritto: 30/12/2013

Postato alle 19:47
Lunedì, 30/12/2013

Nella finestra ho circa 60 TUpDown. Se applico la tua soluzione poi mi ritrovo con 120 pulsanti.

Edit

Ho trovato una soluzione ma non funziona benissimo.

Codice sorgente - presumibilmente Delphi

procedure TForm5.ClickUpDown(Sender: TObject; Button: TUDBtnType );
 
var
old_v : string;
new_v : Extended;
 
begin
 
  old_v := Edit1.Text;
  new_v := StrToFloat(old_v)/10;
  Edit1.Text := FloatToStrF(new_v, ffnumber, 2, 1);
  ActiveControl:=nil;
 
end;

I limiti del parametro visualizzato nell'Edit1 sono 2 e -30.
Un primo problema é che quando il valore arriva a 0.2 poi con un ulteriore click zompa a 2. L'altro problema é che arrivato ad uno dei due limiti max o min se si clicca ancora sulle frecce viene visualizzato il numero intero impostato nel TUpDown cioé 30 e 2.

Ultima modifica effettuata da _FOX_ il 30/12/2013 alle 21:47

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 10:42
Martedì, 31/12/2013

se usi le librerie FireMonkey invece delle ormai obsolete VCL ti puoi fare l'oggetto in maniera personalizzata

_FOX_ (Normal User)
Newbie

Messaggi: 7
Iscritto: 30/12/2013

Postato alle 11:56
Mercoledì, 26/02/2014

Alla fine ho tamponato con l'utilizzo di AdvSpinEdit, componente TMS.

Le posso utilizzare le librerie Firemonkey in una applicazione VCL?

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 13:45
Sabato, 08/03/2014

non credo, ma provare non nuoce, perché io mi sono trovato a fare l'inverso MA non di componenti grafici che sicuramente non saranno compatibili