Ver Mensaje Individual
  #6  
Antiguo 02-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.562
Reputación: 25
egostar Va camino a la fama
Cita:
Empezado por cHackAll Ver Mensaje
Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var pos: Cardinal;
begin
 with Sender as TEdit do
  begin
   pos := System.Pos(',', Text);
   if not LongBool(Pos) then Dec(Pos);
   ReadOnly := not (Key in ['0'..'9', ',', #8]) or
               (Pos <> $FFFFFFFF) and (Key = ',') or
               ((Key <> #8) and (Pos < (SelStart - 1)));
  end;
end;
Epale amigo cHackAll, probé el código y funciona muy bien, pero le he dado mas de dos repasadas y NPI que estas haciendo, , bueno algún día lo entenderé....

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita