Hola,
Tambien puedes utilizar el componente de la JVC (Jedi).. el JvValidateEdit.. es muy bueno
y con respecto a esto
Cita:
Empezado por brakaman
Algo como esto.
Código Delphi [-]
procedure TForm1.EDit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#8]) then
begin
key:=#0;
showmessage('Por favor introduzca numeros')
end
end;
Saludos
|
creo que falta intervenir en el evento onExit del Edit1... para dar solución a esto
Cita:
y si no se ingresa nada que salga un mesaje que no a ingresado numeros
|
ya que si no presiona ninguna tecla, el mensaje anterior no aparecerá...
Código Delphi
[-]
If Edit1.Text = '' Then
ShowMessage('Debe ingresar un dato');
Salu2