Manipulacion de propiedades de objeto

[ecfisa]

Hola kagua77

Empezado por kagua77

...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 = 1; i < 10; i++) {
    TButton *bt = static_cast<TButton*>(FindComponent("Button" + IntToStr(i)));
    if (bt) bt->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