Tema: Puntos
Ver Mensaje Individual
  #2  
Antiguo 23-09-2004
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
NULL
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 677
Reputación: 15
yusnerqui Va por buen camino
Algo para empezar

Este código básicamente hace lo que deseas, al menos tiene el comportamiento que indicas.
Código Delphi [-]
//El edit tiene en la propiedad text del Object Inspector "0.00"
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var  A: Char;
      Tex : String;
begin
  A := Key;
  Key := #0;
  Tex := TEdit(Sender).Text;
  if  (A in [#47 .. #58,#8]) then
  begin
    if TEdit(Sender).tag <3 then
    begin
      Tex[1]:=Tex[3];
      Tex[3]:=Tex[4];
      Tex[4]:=A;
    end else
    insert(A,Tex,pos('.',Tex));
    TEdit(Sender).Text := Tex;
    TEdit(Sender).tag := TEdit(Sender).tag+1;
  end;
end;
Aquí el mayor problema que veo es a la hora de borrar caracteres , claro que supongo que debe haber ya un componente para estos fines, pero por ahora tienes algo para empezar.
Lamento no poderte ayudar con algo mejor.

Un saludo

__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo


Última edición por yusnerqui fecha: 23-09-2004 a las 15:09:46. Razón: Un error de código
Responder Con Cita