Pasar datos de un form a otro

[ecfisa]

Hola astrosnik.

Creo no entender el problema que se te produce utilizando el código que te puse en el mensaje #8.
Para que nos entendamos mejor te adjunto un pequeño ejemplo con dos forms. En Form5 un ADOQuery conectado a la tabla country de dbdemos.mdb (viene con Delphi), al pulsar un botón ejecuta un código básicamente igual al que te puse y muestra los campos del registro actualmente seleccionado en 5 edits residentes en Form2, que previamente fué quitado de Auto-create forms.

Espero te sirva de guía o para que puedas decirme que es lo que no estoy entendiendo de tu problema.

Saludos.

[astrosnik]

Hola de nuevo ecfisa muchas gracias por tu ayuda, el ejemplo tuyo no puedo descargarlo segun el servidor no tengo permisos suficientes aunque este logueado voy a intentar explicarme mejor ruego disculpes si no he sabido hacerme entender.
Mi aplicacion lanza un formulario form4 que es el principal desde ahi con un bitbnt abro el form2 con edits para rellenar mediante el siguiente codigo

Código Delphi [-]
 
procedure TForm4.BitBtn1Click(Sender: TObject);
var
  varform:tform2;
begin
  varform:=tFORM2.Create(form4);
  try
    varform.Showmodal;
  finally
    varform.Free;
  end;

Desde el form2 con otro bitbtn abro el form5 en modal tambien con este codigo

Código Delphi [-]
procedure TForm2.BitBtn1Click(Sender: TObject);
var
  varforms:tform5;
begin
  varforms:=tFORM5.Create(self);
  try
    varforms.Showmodal;
    // aqui creo que es donde falla quizas deberia quitar la propiedad modal al form2 pero no se como
  finally
    varforms.Free;
  end;

En el form5 tengo un bdgrid y ejecuto un query al que asocion el codigo para que rellene los edits del form2.

Si pongo el codigo que me mandaste

Código Delphi [-]
  if not Assigned(Form2) then
    with TForm2.Create(nil) do
    try
      form2.edit2.Text :=form5.adoquery1.fieldbyname('perro').Asstring;
      ShowModal;
    finally
      Free;
    end;

Sigue dando el mismo error access violation at address 004bfd43 in module projrct.exe. read of address 00000370.
Espero haber explicado bien el escenario y los errores que produce gracias otra vez por tu esfuerzo.

[ecfisa]

Hola astrosnik.

No sé por que no te permite descargar el archivo, estuve revisando tus permisos y no pareciera haber ningún problema. Luego miraremos con más detalle.

Te pongo el ejemplo ya que no es muy complicado (no creo que te lleve mas de 5 minutos hacerlo). Consiste en un form principal (Form4) que tiene 5 componentes:

• 1 ADOConnection1.ConnectionString -> dbdemos.mdb
• 1 ADOQuery1.Connection -> ADOConnection1
• 1 DataSource1.DataSet -> ADOQuery1
• 1 DBGrid1.DataSource -> DataSource1
• 1 BitBtn1

Creas otro form (Form2) agregale 5 Edits, y lo sacas de Projects -> Options -> Forms -> Auto-create forms.

Luego el código en Form4:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;

type
  TForm4 = class(TForm)
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
  private
  public
  end;

var
  Form4: TForm4;

implementation {$R *.dfm}

uses Unit2; // Form2

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
    // Las asignaciones antes de ShowModal
    Edit1.Text := ADOQuery1.FieldByName('NAME').AsString;
    Edit2.Text := ADOQuery1.FieldByName('CAPITAL').AsString;
    Edit3.Text := ADOQuery1.FieldByName('CONTINENT').AsString;
    Edit4.Text := ADOQuery1.FieldByName('AREA').AsString;
    Edit5.Text := ADOQuery1.FieldByName('POPULATION').AsString;
    ShowModal;
  finally
    Free;
  end;
end;
end.

Veras que muestra los campos en los edits de Form2 del registro actualmente seleccionado desde el DBGRid sin problemas.

Saludos.

[astrosnik]

Gracias por tu ayuda una vez mas ecfisa tu ejemplo funciona perfectamente pero tu ejemplo y el mio tienen una diferencia:
En tu ejemplo tu asignas los valores a los edits despues de crear el form2 y antes de mostrarlo en el mio el form2 ya esta creado y mostrado en modal puesto que contiene ya valores que proceden del form4 no puedo cerrarlo creo que ahi radica el problema del error que al ser un formulario modal y ya estar creado y mostrado no permite que otro form lo manipule.
La verdad que es mas una curiosidad y una solucion para el futuro ya que con la solucion que postee antes funciona seguire investigando y si encuentro otra solucion.
Un saludo

[ecfisa]

Hola astrosnik.

en el mio el form2 ya esta creado y mostrado en modal

De ese modo no veo factible la asignación, ya que al mostrar a Form2 de forma modal, este no devuelve el control hasta que se cierre. Por lo que, las líneas de asignación posteriores al método ShowModal, no serán ejecutadas hasta despues de que Form2 devuelva el control.

Saludos.

Rectifico, debí decir: De ese modo no veo factible la visualización de los datos asignados.

[astrosnik]

Hola efcisa:
Muchas gracias por tus aclaraciones y indicaciones asi como los ejemplos mostrados que me seran de mucha utilidad resueltas mis dudas sobre formularios modales y habiendo encontrado una solucion para mi problema por mi parte doy por cerrado el tema.
Un saludo

[destrukthor]

Gracias a todos en el foro, sus ejemplos resolvieron un problema que tenia desde un modulo de datos para abrir formularios de conexión de instancias de bases de datos.

Un gran aporte estimados y una importante ayuda a los que nos gusta la programación, pero no tenemos mucho tiempo para ello.

Saludos...