Propietario de un objeto en una función externa

[ecfisa]

Hola Angel.

Está un poco mas claro pero todavía no alcanzo a entender bién la situación... De todos modos fijate si te sirve de este modo.

form invocador de la ayuda:

Código PHP:

...
#include "Unit2.h"  // Formulario de ayuda

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Poblacion->Text = "un texto";
  Poblacion->Tag  = 1;
  if (frmAyuda == NULL)
    frmAyuda = new TfrmAyuda(this);
  frmAyuda->Show();
  frmAyuda->Ayuda(Form1, Poblacion);
}
... 


Ayuda.

.h

Código PHP:

...
class TfrmAyuda : public TForm
{
  __published:    // IDE-managed Components
  ...
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
  void __fastcall FormDestroy(TObject *Sender);
 public:        // User declarations
  void __fastcall Ayuda(TForm* Form, TEdit* Edit);
 ...
} 


form:

Código PHP:

...
void __fastcall TfrmAyuda::Ayuda(TForm* Form, TEdit* Edit)
{
  // aquí lo que desees hacer con los argumentos
  ShowMessage(Form->Name + " - " + Edit->Name + " ,contenido: "+Edit->Text);
}

void __fastcall TfrmAyuda::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}

void __fastcall TfrmAyuda::FormDestroy(TObject *Sender)
{
  frmAyuda = NULL;
} 


Saludos

[aguml]

y digo yo, ¿No te interesa mas usar como parametrosel puntero al form y un enum(poblacion=1,nombre,apellido...) y dentro de la funcion usar un switch que dependiendo del valor use un edit u otro? Por ejemplo Ayuda(fomulario,localidad); y con eso te quitas complicaciones.

[[escafandra]]

Yo tampoco tengo muy clara la situación pero si ayuda la declaras así:

Código PHP:

void Ayuda(TForm *Formulario, TCustomEdit *Edit) 


Donde Edit es el edit del formulario sobre el que obtienes ayuda (Poblacion), ¿No sería esto lo que tienes que hacer en la función ayuda?:

Código PHP:

Edit->Text = Query->FieldByName("Nombre")->AsString; 


Saludos.

[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;

}