Ver Mensaje Individual
  #13  
Antiguo 24-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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.

Cita:
A ver Form1, es el principal, los demás están disponibles (Project - Options - Forms - Available forms), por eso las creo en tiempo de ejecución: la Form2 desde la form1, y la Form3 desde la form2.
Estimado, ahora que sé como haces la creación de los forms, te diría que el error no se provoca en ella ni en el pasaje de datos de Form3 a Form2 y Form1.

A ver, esta fué la prueba que hice:

Form1:
Código Delphi [-]
implementation

uses Unit2;

procedure TForm1.btAbrirForm2Click(Sender: TObject);
begin
  Form2:= TForm2.Create(self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

Form2:
Código Delphi [-]
implementation

uses Unit3;

procedure TForm2.btAbrirForm3Click(Sender: TObject);
begin
  Form3:= TForm3.Create(self);
  try
    Form3.ShowModal;
  finally
    Form3.Free;
  end;
end;

Form3:
Código Delphi [-]
implementation

uses Unit2, Unit1;

procedure TForm3.btPasarTextClick(Sender: TObject);
begin
  // Darle valores a los edits
  Edit1.Text:= 'Form3.Edit1';
  Edit2.Text:= 'Form3.Edit2';
  Edit3.Text:= 'Form3.Edit3';
  Edit4.Text:= 'Form3.Edit4';

  // Pasar a Edits de Form1
  Form1.Edit1.Text:= Edit1.Text;
  Form1.Edit2.Text:= Edit2.Text;

  // Pasar a Edits de Form2
  Form2.ECodGrupo.Text:= Edit3.Text;
  Form2.EDescGrupo.Text:= Edit4.Text;
end;
De ese modo transfiere los valores desde Form3 a Form1 y Form2 sin ningún tipo de error.

Cita:
Sospecho que me están evadiendo con la respuesta
Creo que estás confundido no sólo con el problema sino también con el juicio que emites, nadie ha tratado de evadir las respuestas, aquí cada uno aporta lo que su conocimiento y experiencia le indica y sin percibir un centavo por ello.

Cita:
considero que mi consulta ya ha sido lo suficientemente explicada
No, no es así. Recién en el anteúltimo mensaje nos enteramos el órden de creación.

Cita:
agradezco que me colaboren con el problema, pero si no saben como ayudar por favor no confundan más...
Lamento muchísimo si en nuestro afán de brindarte ayuda pudimos confundirte aún más.

Y para que no quede ninguna duda de nuestra buena voluntad, te adjunto el ejemplo para que puedas cotejarlo con tu código.

Saludos y no te olvides de leer nuestra guía de estilo.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 17-11-2012 a las 19:19:31.
Responder Con Cita