Ver Mensaje Individual
  #9  
Antiguo 21-10-2014
Toni Toni is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona - España
Posts: 364
Reputación: 24
Toni Va por buen camino
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 *FormularioTCustomEdit *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;


__________________
Saludos,

Bitman
Responder Con Cita