Seleccionar fila en DBGrid

[cslbcn]

Hola a todos, a ver si me podéis ayudar con esto:

Tengo 2 formularios: Form1 y Form2.

En Form1 tengo 1 botón y 3 DBLookUpComboBox (DBLCB)

En el 1º DBLCB se pone poblacion
En el 2º DBLCB se pone provincia
En el 3º DBLCB se pone pais

El botón sirve para abrir el Form2.
El Form2 sirve para buscar provincia o paises o poblaciones mediante un sólo campo.
Por ejemplo pongo en provincia: Barcelona.
En el DBGrid del Form 2 me aparece una lista con todos los registros que tengan en su campo provincia la palabra Barcelona.

Hasta ahí todo bien. Ahora quiero que cuando selecciono un registro del DBGrid y le doy al botón Aceptar, los DBLCB del Form1 se rellenen con la información correcta del registro.

Si he seleccionado un registro en Form2 con poblacion: reus, provincia: tarragona, pais: españa; que en Form1 los DBLCB1, 2 y 3 salgan estos 3 nombres.

Alguna sugerencia?

Gracias!

[Rockin]

Vamos a ver, tiene que hacer algo parecido a esto.

Hacemos clic en la fila del DBGrid, y al darle a aceptar algo parecido a esto.

Código Delphi [-]


with DataSet do
begin
Close;
CommandText:= 'select provincia from tabla_provincia'; //Seleccionamos los registros que quieras; Por ejemplo: Provincias
Open;
Last;
end;

DBLCB.ListSource:= Tu_DataSource;
DBLCB.KeyField:= 'provinicia';
DBLCB.ListField:= 'provincia';
DBLCB.KeyValue:= DBGrid.Fields[columnadelcampo].Text

Así con los 3 DBLCB, cambiando la columna del campo que quieras mostrar.

El CommandText es porque uso ClientDataSet, s¡ tu usas otros componentes adaptalo.

Espero que te valga, saludos.

[cslbcn]

Ya me salió, es así

Código Delphi [-]
procedure TFPostal.DBGrid1CellClick(Column: TColumn);
begin
with DMMestres.ADOQBuscar do
  begin
    vciu:= fieldbyname('loc').asstring;
    vpro:= fieldbyname('reg_code').asstring;
    vpos:= fieldbyname('code_post').asstring;
  end;
end;

procedure TFPostal.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  DBGrid1CellClick(nil);
end;

procedure TFPostal.Button3Click(Sender: TObject);
begin
  FEmpresa.DBLCBCposGenEmp.keyvalue := vpos;
  FEmpresa.EPovGenEmp.text          := vciu;
  FEmpresa.EProGenEmp.text          := vpro;

end;