Ver Mensaje Individual
  #6  
Antiguo 17-10-2014
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 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
__________________
Daniel Didriksen

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