[VRO]

Os paso el codigo que me pediste delphi.com.ar, sobre la pregunta que he hecho de declarar las variables globales y pulsar en el grid y que me pase los datos al formulario que le llama.

Os explico más detalladamente lo que pretendo conseguir, el Form2 es un formulario de gestión de clientes, uno de los botones es el de busqueda, que es el que yo pulso y en el creao el Form2_1 de la siguiente forma:

//En el Form2 botón de busqueda

Código Delphi [-]

 procedure TForm2.buscarcliClick(Sender: TObject);
var
  cliente: TForm2_1;
begin

  cliente:=TFoorm2_1.Create(Application);
  cliente.Show;
end;

En el Form2_1 tengo una DBGrid que contiene los datos del todos los clientes dados de alta hasta el momento, cuando pincho en el grid sobre uno de ellos sus datos expuestos en el grid deben pasar a los TDBEdit del Form2 y así se realiza la busqueda de un cliente para observar sus datos. Para ello utilizo el siguiente codigo:

//Declaro las variable globales en el public del Form2_1

Código Delphi [-]

cod,tipo,nif,nom,dir,pobla,cp,pro,p,fn,tlf,movil,s:String;

//En el evento OnClik del DBGrid hago lo siguiente:

Código Delphi [-]

procedure TForm2_1.DBGridCellClick(Column: TColumn);
begin
cod:=cli.Fields[0].Text;
  tipo:=cli.Fields[1].Text;
  nif:=cli.Fields[2].Text;
  nom:=cli.Fields[3].text;
  dir:=cli.Fields[4].Text;
  pobla:=cli.Fields[5].Text;
  cp:=cli.Fields[6].Text;
  pro:=cli.Fields[7].Text;
  p:=cli.Fields[8].Text;
  fn:=cli.Fields[9].Text;
  s:=cli.Fields[10].Text;

  tlf:=cli.Fields[11].Text;
  movil:=cli.Fields[12].Text;

  //Salgo del Form2_1
  free;
end;

yo pienso que lo normal sería que ahora despues de cerrar el Form2_1, en el Form2 igualasemos los TDBEdit al valor de las variables globales, pero sín hacer esto último sale y no se porque?

Y esa es la razón por la que quiero pasar los datos del DBGrid a los TDBEdit del Form2.

Gracias a ambos, probaré también tu forma vtdeleon.