Ver Mensaje Individual
  #1  
Antiguo 28-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola kagua77
Cita:
Empezado por kagua77 Ver Mensaje
...es decir quiero que cuando presione el numero 1, y decir al codigo que estoy en Edit1, y lo inserte ahi, igual decirle que estoy en Edit2 e insertarlo ahi
...
y que la momento de presionar boton con el numero 1, lo inserte en el Edit que estoy usando
Disculpas se me pasó este punto .

Contemplándolo quedaría:
Código PHP:
TEdit *currEdit;  // Almacena el edit que tiene el foco actualmente

/* Asignar los números de botones a la prop. Tag */
void __fastcall TForm1::FormCreate(TObject *Sender
{
  for ( 
int i 110i++) {
    
TButton *bt static_cast<TButton*>(FindComponent("Button" IntToStr(i)));
    if (
btbt->Tag i;
  }
}

/* Asigna este código al evento OnEnter de los 4 Edits,
  CurrEdit será el Edit que tenga el foco */
void __fastcall TForm1::Edit1Enter(TObject *Sender
{
  
currEdit static_cast<TEdit*>(Sender);
}

/* Asigna este código al evento OnClick de los 9 botones */
void __fastcall TForm1::ButtonsClick(TObject *Sender
{
  
TButton *bt static_cast<TButton*>(Sender);
  
currEdit->Text currEdit->Text IntToStr(bt->Tag);

También podes asignar manualmente los valores (1-9) a la propiedad Tag de los botones en tiempo de diseño (desde el Object Inspector). De ese modo te ahorras el código del evento OnCreate y ya no tiene importancia el nombre que pudieran tener los TButton.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita