tUpDown

[ignacio]

Ramón,
El control TUpDown se utiliza para poder incrementar o decrementar el valor
de otro control al cual esta enlazado a traves de la propiedad oBuddy. Por
lo tanto es dicho control el que debe soportar decimales. En el control
TUpDown sólo necesitas modificar el incremento para que en vez de
incrementar de uno en uno incremente como tu lo desees.
TUpDownControl:nIncrement := 0.01
Saludos,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42f2f6d2@ozsrvnegro.ozlan.local...]42f2f6d2@ozsrvnegro.ozlan.local...[/email]
> la clase tupdown solo es valida para numeros enteros?
>
> No acepta numeros reales? osea 8.65
>
> Gracias.
> Saludos.
>
>

[ignacio]

Ramón,
Perdoname, pero efectivamente tienes razón. TUpdDown directamente no admite
decimales.
No obstante, es fácil adaptarlo para que nos funcione, para ello simplemente
pon la propiedad lSyncBuddy a falso y luego atrapa el evento OnChange y haz
algo parecido a esto:
METHOD UpDown1Change( oSender, nPos, nDelta ) CLASS TForm2
::oMaskEdit1:Value := nPos / 100
RETURN Nil
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42f3151a@ozsrvnegro.ozlan.local...]42f3151a@ozsrvnegro.ozlan.local...[/email]
> ya lo hice, le pongo 0.01 pero se vuelve a 1.
>
> Gracias.
>
>

[zeasoftware]

ya lo hice, le pongo 0.01 pero se vuelve a 1.
Gracias.