por favor necesito ayuda con unos formularios...

[arnovisr]

Bueno señores, les cuento que todo está como al principio, con lo que me han dicho no he solucionado nada y ya he probado todo lo que me han sugerido...

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.

Código Delphi [-]
 
Form2:= TForm2.Create(self);
 try
  Form2.ShowModal;
 finally
  Form2.Free;
 end;

Y

Código Delphi [-]
 
Form3:= TForm3.Create(self);
 try
  Form3.ShowModal;
 finally
  Form3.Free;
 end;

Luego en la Form3, selecciono unas celdas de un DBGrid, que deben mandar esos datos a unos Edit's en Form2, de esta manera:

Código Delphi [-]
 Form1.Edit1.Text:= DBG.Fields[0].AsString;
 Form1.Edit2.Text:= DBG.Fields[1].AsString;
 Form2.ECodGrupo.Text:= DBG.Fields[0].AsString;
 Form2.EDescGrupo.Text:= DBG.Fields[1].AsString;

Y ahí está el problema: me sale el error, Access Violation, en cambio si los mando a los Edit's que coloco en el el Form1 y si los manda, pero los necesito es en el Form2. Gracias por la colaboración que me puedan dar...

[Casimiro Noteví]

Lo que haces y tus explicaciones están muy confusas, por favor, explica claramente lo que haces, lo que quieres hacer, muestra el código (todo lo posible), etc.

[arnovisr]

Sospecho que me están evadiendo con la respuesta, considero que mi consulta ya ha sido lo suficientemente explicada, agradezco que me colaboren con el problema, pero si no saben como ayudar por favor no confundan más... no creo que haya mucho que explicar, cuando creo que está bastante explicada:

Tengo 3 formularios, uno principal y dos que creo de manera dinámica, o en tiempo de ejecución, lo que hago es crear uno a continuación del otro, y cuando trato de mandar datos del tercero al segundo me manda error, así de sencillo... en cambio si lo mandara al primero me sale bien, no veo que otra cosa haya que explicar... muchas gracias a los que me puedan colaborar...

[Casimiro Noteví]

Empezado por arnovisr

Sospecho que me están evadiendo con la respuesta

Por supuesto, es que nos pagan demasiado poco por atender este servicio técnico, por eso no nos esforzamos mucho en contestar.

Empezado por arnovisr

considero que mi consulta ya ha sido lo suficientemente explicada, agradezco que me colaboren con el problema, pero si no saben como ayudar por favor no confundan más...

Debes comprender que no somos muy inteligentes, nos gusta tener entretenido a nuestros clientes

Empezado por arnovisr

Tengo 3 formularios, uno principal y dos que creo de manera dinámica, o en tiempo de ejecución, lo que hago es crear uno a continuación del otro, y cuando trato de mandar datos del tercero al segundo me manda error, así de sencillo...

"Me manda error", una explicación muy académica, muy clara, muy explicativa, cualquiera lo entiende

Venga, que tengas suerte.

[ecfisa]

Hola.

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.

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.

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.

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.

[arnovisr]

Bueno, la verdad es que me siento mal por haber manifestado mi estado de ánimo de esa forma en que lo hice, de pronto me dejé llevar porque es que siento que me tiene atrancado esta situación y al no ver que me hago explicar bien, cuando pienso que lo he estado haciendo de pronto me dejé llevar, pero de verdad ofrezco mil disculpas y espero me las acepten...

Muchas gracias a todos los que me han dado su muy buena opinión, espero aplicar las sugerencias a ver como me va con eso y luego contaré como me fue...

[Casimiro Noteví]

Cualquiera tiene un mal día, ya verás que con las explicaciones que ha dado el compañero ecfisa consigues hacer funcionar correctamente tu programa.
Saludos.

[arnovisr]

A Todos los que me ayudaron muchísimas gracias a Casimiro Notevi, a ecfisa, a oscarac, a Roman, a todos me ayudaron a comprender bien como es que funciona esto de la creación de formularios en tiempo de ejecución correctamente, problema resuelto, a ver si me puedo explicar bien como funcionó todo:
1. Resulta que tengo una unidad externa donde utilizo un metodo para crear los formularios pasando como parámetro el formulario a crear. Este método lo aplicaba con nueva.create(application) y pues así lo llamaba cada vez que lo necesitaba y así me mandaba el error: Access Violation,
2. Gracias a sus consejos: utilizo ahora TFCatalogo.Create(self); en el llamado a los otros dos formularios y santo remedio: arreglado....
Bueno no he estudiado muy bien la diferencia entre el funcionamiento de la .Create con Self y con Application (estoy en eso)... pero con sólo eso se solucionó el problema, es increíble, y pensar que pasé todo el día dándole a esto y atascado con ello... pero de verdad muchas gracias a todos...

Ah y en serio mis más sentidas disculpas a todos de pronto si mi lenguaje no fue el adecuado, mis excusas... muchísimas gracias...

[ecfisa]

Hola arnovisr.

Como bién dice Casimiro, aquí no ha pasado nada , lo importante es que solucionaste tu problema.

Saludos

[ecfisa]

Hola arnovisr.

Si querés ampliar sobre como asignar el propietario en la creación: Application, self, nil, etc... te pongo unos pocos enlaces que creo que te van interesar:

• Como llamar formularios desde otro formulario ?
• Free a un componente dentro de otro
• Sencilla pregunta sobre owners

Encontrarás mucho mas material buscando aquí mismo en los foros.

Saludos.

[arnovisr]

Muchísimas gracias Ecfisa por este material, de verdad que me pondré inmediatamente a estudiarlos, me servirán muchísimo, mil gracias...