Ver Mensaje Individual
  #2  
Antiguo 12-05-2008
Avatar de brakaman
[brakaman] brakaman is offline
Miembro Premium
 
Registrado: ago 2006
Ubicación: Castellon - España
Posts: 289
Reputación: 18
brakaman Va por buen camino
Cita:
Empezado por jedinds Ver Mensaje
hola

Edit, solo ingreso de numeros
y si no se ingresa nada que salga un mesaje que no a ingresado numeros

saludos
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
Responder Con Cita