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.