Tema: no repetir 2 comas(,) en un edit
Ver Mensaje Individual
  #2  
Antiguo 13-05-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
  
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Reputación: 20
droguerman Va por buen camino
en el evento onkeypress : 
Código Delphi [-]
procedure TfmCompra.editKeyPress(Sender: TObject;   var Key: Char);
begin
  if (key= #44) and (pos(',',edit.text)>0) then key:= #0;
end;
__________________
self.free;
Responder Con Cita