Propietario de un objeto en una función externa

[Toni]

Hola,

En este caso como la funcion Ayuda es genericay ademas esta compilada de forma externa te puede ser comodo utilizar los metodos FindComponent. Esto te va a permitir de forma dinamica acceder a cualquier objeto que tengas en el formulario que le pasas a la funcion ayuda.

Código PHP:


void Ayuda(TForm *Formulario, TCustomEdit *Edit)
{

  // En el caso del formulario Poblaciones rotorna 2 campos adicioanales.
  if(Formulario->Name=="Poblaciones")
    {
      TEdit *CodigoPostal = (TEdit *)Formulario->FindComponent("CodigoPostal");
      TEdit *Provincia      = (TEdit *)Formulario->FindComponent("Provincia");

      if(CodigoPostal != NULL) // Para evitar problemas por si no localiza el campo dentro del form.
        CodigoPostal ->Text = Query->FieldByName("CodigoPostal ")->AsString;
      if(Provincia != NULL)
        Provincia->Text       = Query->FieldByName("Provincia")->AsInteger;
    }

   // Valor de retorno generico para todos los formularios
   Form->Nombre->Tag = Query->FieldByName("Nombre")->AsString;

}