MaskEdit numérico y con puntos

[[BlueSteel]]

Empezado por fidel

No pongas ninguna máscara y pon esto en el el evento OnKeyPress


Código Delphi [-]
//controlar entrada solo números
if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then Key := #0;
//controlar entrada una sola coma
for i := 1 to length(EDos.Text) do
if ( copy(EDos.Text,i,1) = '.' ) and not ( StrScan('.', Key) = nil ) then Key := #0;

bueno el codigo.. pero si lo tienes que agregar a varios edits igual es más trabajo... como dicen... para que vas a inventar la rueda y esta ya fue inventda..

creo que el JvValidateEdit que menciona Contraveneno es la mejor opción..

Salu2