|
|
 |
 |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
#1
14-07-2003
|
|||
|
|||
|
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.. 
|
|
#2
14-07-2003
|
||||
|
||||
|
Puedes usar un MaskEdit, pero te recomiendo, utilizar el TCurrencyEditor de las RxLibs, que puedes bajar de Torry.net.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. 
|
|
#3
14-07-2003
|
||||
|
||||
|
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;
|
|
#4
14-07-2003
|
||||
|
||||
|
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
|
 |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
 |
|
Mode Lineal
