Como seleccionar con un click una fila del dbgrid.

[Niiña]

Estoy utilizando la base de datos en Firebird.
Tengo un Form1 como base y lo conecto a la base de datos con los componentes TiBConnection, TSQLtransaction, TSQLQuery, y TDatasource , luego agrego un nuevo Form2 lo conecto por medio de un boton.

Al Form2 le agrego un TDBGrid1 y un TEdit1, con el SQLQuery muestro la consulta que necesito..
En el Edit1 voy escribiendo el campo con el nombre que quiero..

Necesito es saber como pasar esa fila o un campo de la fila que se esta seleccionando en el DBGrid con un click o enter y pase la información a un Edit que tengo en el primer Form1 que tengo como base.

Nota: Los Formularios los cree con distinta conexión pero le asigne la misma base de datos.. "No se si tenga problemas con eso cuando quiera pasar la información de la fila del DBGrid de un form al Edit del otro form" .

Por Favor espero Respuestas..

[ecfisa]

Empezado por Niiña

Estoy utilizando la base de datos en Firebird.
Tengo un Form1 como base y lo conecto a la base de datos con los componentes TiBConnection, TSQLtransaction, TSQLQuery, y TDatasource , luego agrego un nuevo Form2 lo conecto por medio de un boton.

Al Form2 le agrego un TDBGrid1 y un TEdit1, con el SQLQuery muestro la consulta que necesito..
En el Edit1 voy escribiendo el campo con el nombre que quiero..

Necesito es saber como pasar esa fila o un campo de la fila que se esta seleccionando en el DBGrid con un click o enter y pase la información a un Edit que tengo en el primer Form1 que tengo como base.

Nota: Los Formularios los cree con distinta conexión pero le asigne la misma base de datos.. "No se si tenga problemas con eso cuando quiera pasar la información de la fila del DBGrid de un form al Edit del otro form" .

Por Favor espero Respuestas..

Hola.

Precisamente eso hace el código que te puse en el mensaje anterior, pasar el valor del campo seleccionado en DBGrid1 ubicado en Form2 a la propiedad Text de Edit1 que está en Form1...

Un saludo.

[Niiña]

Hola..

Intente correr el programa con este código pero me da error.

El error es: "Wrong number of parameters specified for call to "Valuechange".

procedure TForm1.FormShow(Sender: TObject);
begin
with TForm2.Create(Self) do
begin
FieldChange:= ValueChange; <--- aquí se que hay que colocar el parámetro pero he intentado colocar varios y nada..
Show;
end;
end;

No se resolverlo ..

[ecfisa]

Hola Niiña.

Te adjunto un demo para que lo revises con tranquilidad.

Para evitar problemas de contraseña y unificar criterios, no utilizé Firebird sino BDE con la tabla Country.DB que viene con Delphi por defecto.
Si querés, podés eliminar el TTable y añadir IBDatabase, IBTransaction, IBQuery o IBDataSet, asignarle el nuevo TDataSet al TDataSource con que se relaciona el DBGrid y funcionará del mismo modo.

Cualquier dificultad, no dudes en avisarme.

Un saludo.

[Niiña]

Gracias.. ! Deja revisar.