Leer fila en la que estoy situado en un DBgrid

[tcp_ip_es]

upss se me ha pasado meter el campo empresa , faltaría que lo metieses y ya esta....

[RyAr]

Buenas, ya me va bien, asi que muchisimas gracias por tu paciencia.

Saludos

[ramonibk]

Una pequeña duda.

yo tengo algo parecido y tambien estoy buecando la manera de poder habrir desde el Dbgrid basado en Query un formulario para modificacion de datos.
pero en mi caso se complica por que lo que tengo son barios Query que mandan los datos a un DataSource. el cual es el que pinta en el DbGrid.

 
procedure TfrmBuscar.btnBuscarClick(Sender: TObject);

begin
 if rbEmpresa.checked then Begin
  qryEmpresas.close;
  qryEmpresas.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.dataSet:=qryEmpresas;
  qryEmpresas.Open;
 End Else
 If rbNombre.checked Then Begin
  qryNombre.Close;
  qryNombre.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryNombre;
  qryNombre.Open;
 End Else
 If rbApellido.checked Then Begin
  qryApellido.Close;
  qryApellido.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryApellido;
  qryApellido.Open;
 End Else
 If rbTelefono.checked Then Begin
  qryTelefono.Close;
  qryTelefono.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryTelefono;
  qryTelefono.Open;
  End;
end;

procedure TfrmBuscar.Salir1Click(Sender: TObject);
begin
 Close;
end;

Este es el codigo que estoy Usando para las diferenres busquedas.

[tcp_ip_es]

Pues en el evento que abras ese formulario (ya sea un boton, o en el OnDblClick del DbGrid), pon los if que estás colocando en el btnBuscar, y dependiendo de cual este checked, haces un locate sobre una tabla u otra.

Saludos, Tony