edit para euros

[botones67]

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]

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


Saludos!

[marcoszorrilla]

Prueba con esto a ver que te parece:

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]

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!