Delphi - DBEdit

   
Vista:

DBEdit

Publicado por SIMON (16 intervenciones) el 27/05/2012 21:24:03
Hola a todos: disculpen mi ignorancia: mi problema es el siguiente:

Tengo dos en un formulario, lo que quiero es que cuando edite un número cualquiera (por ejemplo 15) en el DBEdit1 y pase al siguiente DBEdit2, en el DBEdit1 salga 15 gms. (pero que el DBEdit1 no acepte letras, solo números).

En resumen lo que quiero es cada vez que introduzca un numero cualquiera al DBEdit1 y pase al DBEdit2 salga al lado del numero que introduje este texto (gms) (pero que el DBEdit1 no acepte letras, solo números).
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Calculadora
- Algoritmo AlphaBlending
- NotePlus

DBEdit

Publicado por SIMON (16 intervenciones) el 28/05/2012 23:03:28
Hola a todos Soy simón

Sé que hasta ahora nadie me ha contestado, pero estoy intentado hacerlo en el evento OnExit del DBEdit1 pero no me sale

Por favor sacarme del aprieto y disculpen mi ignorancia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

DBEdit

Publicado por E.T. (1107 intervenciones) el 28/05/2012 23:35:16
En realidad es bastante sencillo

En los eventos de tu DBEdit 1 haz lo siguiente:

EN el evento OnKeyPress
1
2
3
4
5
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8, '.']) then
    Key := #0;
end;


Y en el evento OnChange del mismo edit pones
1
2
3
4
5
6
procedure TForm1.DBEdit1Change(Sender: TObject);
var valor: extended;
begin
  if TryStrToFloat(DBEdit1.Text, valor) then
    DBEdit2.Text := FloatToStr(valor) + ' gms';
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

DBEdit

Publicado por SIMON (16 intervenciones) el 29/05/2012 18:48:01
Un millón de gracias
Me salió correctamente, solo hice una pequeña modificando en el 2do código
Lo hice en el evento OnExit

if TryStrToFloat(DBEdit1.Text, valor) then
DBEdit1.Text := FloatToStr(valor) + ' gms';
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar