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

[feliz-58]

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

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]]

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]

Empezado por newtron

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

Entendido. Gracias por el aporte Saludos!