Procedimiento externo

[ethangio]

Gracias por tu ayuda [movorack]


Probé con el componente SpinEdit pero no me sirve porque lo que necesito capturar en los TEdit son números reales, no solo enteros. A menos que no haya sabido configurarlo adecuadamente.

Probé con el código que me proporcionarte y no me funcionó, revisé varias veces y no me valida solo números en el procedimiento donde coloco inherited .

Lo que pretendo hacer es no generar más código en los Form's.

[Casimiro Notevi]

Propiedad ValueType

[[movorack]]

Empezado por Casimiro Notevi

Propiedad ValueType

Ese es del TJvSpinEdit

[Casimiro Notevi]

Empezado por movorack

Ese es del TJvSpinEdit

Pues tendrá que usar ese

[ethangio]

Empezado por Casimiro Notevi

Pues tendrá que usar ese

... Les agradezco de corazón el tiempo que se tomaron para leer este hilo y la ayuda prestada.


Soy de la idea de evitar usar componentes de terceros a menos que sean muy necesarios y en este caso pues creo que no lo es y tendré que hacer en cada Form un evento OnKeyPress para todos los TEdit que requieran la validación :

Código Delphi [-]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin

      proc_func.Numero(Sender, Key);
end;

Saludos desde Puebla, México.