Ver Mensaje Individual
  #2  
Antiguo 04-12-2004
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Reputación: 25
eduarcol Va por buen camino
no se que caracter represente el #8 pero con esta modificacion propuesta debe funcionar

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
   if ((Key < '0') or (Key > '9')) and (Key <> #8) and (Key <> ',') then
      Key := #0;
end;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita