Foros Club Delphi - edit para euros

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - edit para euros (https://www.clubdelphi.com/foros/showthread.php?t=2223)

botones67

14-07-2003 21:16:13

edit para euros

Hola que tala todos.

Una ayudita:

Mirar tengo un edit en el que pretendo insertar euros.

¿ Como tengo que configurar sus propiedades para que no se

pueda insertar letras, pero que si deje el punto para los

decimales ?

Gracias anticipadas..

delphi.com.ar

14-07-2003 21:18:10

Puedes usar un MaskEdit, pero te recomiendo, utilizar el TCurrencyEditor de las RxLibs, que puedes bajar de Torry.net.

Saludos!

marcoszorrilla

14-07-2003 22:38:13

Prueba con esto a ver que te parece:

Código:

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

  if (pos('.',(sender as TEdit).Text)=0) then

    begin

      if not (key in ['0'..'9','.',#8]) then key:=#0;

    end

     else if not (key in ['0'..'9',#8]) then key:=#0;

  end;

Un Saludo.

delphi.com.ar

14-07-2003 22:44:43

La solución que te propone Marcos, si bien es sencilla, tiene dos desventajas, una es que lo tienes que hacer por cada formulario y otra es que si el usuario utiliza el clipboard para ingresar la información, falló!

Saludos!

La franja horaria es GMT +2. Ahora son las 02:06:59.