Pasar datos de un form a otro

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