Ver Mensaje Individual
  #3  
Antiguo 13-05-2008
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 23
BlueSteel Va por buen camino
Cool

Hola,

Tambien puedes utilizar el componente de la JVC (Jedi).. el JvValidateEdit.. es muy bueno

y con respecto a esto

Cita:
Empezado por brakaman Ver Mensaje
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
__________________
BlueSteel
Responder Con Cita