Foros Club Delphi - Introducir números en el edit seleccionado en tiempo de ejecucion

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

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

- - Introducir números en el edit seleccionado en tiempo de ejecucion (https://www.clubdelphi.com/foros/showthread.php?t=85000)

feliz-58

13-01-2014 14:16:13

Introducir números en el edit seleccionado en tiempo de ejecucion

Hola Club, espero que todos tengan un buen añoy mucha prosperidad :D.

en este caso les escribo para lo siguiente:

tengo el siguiente codigo en un boton para insertar el numero 1 en un edit:

Código Delphi [-]Edit1.Text := Edit1.Text + '1';

pero se me da el caso de que tengo dos edits (edit1) (edit2) entonces lo que quiero hacer es que cuando tengo el edit 1 seleccionado, solo se inserte en ese, y que cuando selecciones el edit 2, solo lo inserte en el dos.

Como seria?

Cordial saludo!

newtron

13-01-2014 16:42:03

Hola.

Para eso puedes usar la propiedad "focused" del edit. Sería algo parecido a esto:

Código Delphi [-]If Edit1.Focused then
  Edit1.Text := Edit1.Text + '1';
If Edit2.Focused then
  Edit2.Text := Edit2.Text + '1';

También tendrás que tener en cuenta el botón que usas para pulsar porque hay botones que se quedan con el foco al pulsar con lo cual se perdería del edit y ninguno de los dos tendría el foco, tienes que usar un botón que no coja foco como los SpeedButton por ejemplo.

Saludos

feliz-58

13-01-2014 16:49:28

Cita:

Empezado por newtron (Mensaje 471615)

Hola.

Para eso puedes usar la propiedad "focused" del edit. Sería algo parecido a esto:

Código Delphi [-]If Edit1.Focused then
  Edit1.Text := Edit1.Text + '1';
If Edit2.Focused then
  Edit2.Text := Edit2.Text + '1';

Entendido. Gracias por el aporte :) Saludos!

La franja horaria es GMT +2. Ahora son las 16:06:57.