Grid y los datos...

[superhopi]

Me gustaria saber que codigo puedo poner en el evento onclick de una rejilla para que, se pulse donde se pulse, me muestre en un edit la clave primaria de la fila seleccionada.
Por ejemplo teniendo:
- Codigo-Nombre-Apellidos-DNI
Se pulsa en cualquier celda y que aparezca el Codigo de la fila donde se ha pulsado.

Gracias!!

[andres1569]

Hola:

¿Y no te sirve colocar un TDBEdit ligado a ese campo código? Pulses donde pulses te aparecerá el valor correcto.

[superhopi]

el problema esta en que el grid no siempre tiene el mismo data source,,, por lo tanto... no me sirve. ¡¡ojala y fuera con el mismo data souerce!!

[andres1569]

¿Y no hay ninguna posibilidad de que cuando cambias el DataSource al DBGrid, hagas lo mismo con el TDBEdit?

Ten en cuenta que el DBGrid que viene con Delphi no trae un evento OnRowChanged, de modo que para saber cuándo se ha cambiado de registro, habría que acceder al DataSource ligado al DBGrid, con lo cual, si conocemos ese dato, lo normal es enlazarlo al TDBEdit en cuanto podamos y olvidarnos de interceptar más eventos.

Sí que podrías usar el evento OnCellClick, pero no se actualizaría el TEdit cuando el usuario se moviera desde el teclado, por ejemplo. En cualquier caso, el código sería:

procedure OnEvento;
begin
  if (DBGrid.DataSource <> nil) AND 
     (DBGrid.DataSource.DataSet <> nil) then
    Edit1.Text := DBGrid.DataSource.DataSet.FieldByName('Codigo').AsString;
end;

[marcoszorrilla]

Prueba este código y verás como te funciona:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  Try
  edit1.text:=(Dbgrid1).Columns[TstringGrid(Dbgrid1).col -1 ].field.asString;
  Except
  ShowMessage('No Puedorrrrr');
  end
end;

Un Saludo.

[jachguate]

Si el dataset del dbgrid no es siempre el mismo, el DataSource no tiene por que cambiar.

Podes ligar el dbGrid y un dbEdit a un mismo DataSource, y luego cambiar el DataSet del DataSource.

Me explique???


Hasta luego.

[superhopi]

Chico, la respuesta que mas se acerca a mis objetivos es la tuya, lo que pasa que con el codigo que me has pasado, salen los datos de la celda en la que haces click, y yo quiero que salga siempre los datos de otra celda que estan, eso si, en la misma fila que el que esta pulsado... Que enreversado,,, sorry

Y gracias a los demas por responder!!! Que seria de mi sin vosotros...

Saludos, cristian.

[marcoszorrilla]

Eso es más facil, pero tienes que saber de antemano que columna es.

procedure TForm1.DBGrid1CellClick(Column: TColumn);
Var
MiCol:Integer;
begin
MiCol:=3;
  Try
  edit1.text:=Dbgrid1.Columns[MiCol].field.AsString;
  
  Except
  ShowMessage('No Puedorrrrr');
  end
end;

Un Saludo y a ver si te sirve ahora.

[superhopi]

Eso es lo que queria!!!
Gracias tio, porque no te tengo aqui, si no te daba un morreo jajaja

[Gadner]

Hay de todo en las respuestas que veo pero sobre todo cierta confusión con lo que son los datos y lo que es su visualizacion. En fin, para simplificar

procedure TForm1.DbGrid1Click;
var ds : TDataset;
begin
try
ds := dbGrid1.Datasource.Dataset;
Label1.Caption := 'El registro activo es : Nombre-'+ds.FieldByName('Nombre').AsString+' Apellidos-'+ds.FieldByName('Apellidos').AsString;
except
Label1.Caption := 'No hay registro activo';
end;
end;

Solo accedemos a la grid para tomar una referencia a su dataset, aunque esto podria evitarse, y una vez en este punto nos olvidamos de la grid y accedemos al dataset y a los campos que nos interesen. Saludos

[andres1569]

Hola:

Todo lo que se ha dicho está muy bien, pero entiendo, aunque SuperHopi no lo diga así en su pregunta, que el Edit debe cambiar cuando se cambia el registro activo, sea mediante un Click con el Mouse, o desde el teclado, o desde otro proceso.

Si no se trata de esto sino que debe ser sólo en el evento OnClick, entonces todo lo dicho me parece correcto, y no hace falta que sigáis leyendo este mensaje,

y si no, creo que se debe tomar en serio lo de usar un TDBEdit (al que pasemos el DataSource del Grid, o como dice jachguate mantener el mismo DataSource y cambiar sólo su DataSet cuando proceda). O bien, si se opta por un TEdit a secas, tratar de interceptar el evento del DataSet (OnScroll) o del DataSource (OnDataChange). El problema de usar el OnScroll es que éste suele estar en el DataModule y no es recomendable hacer nada desde allí que afecte a la visualización. Para estos casos, suelo colocar un TDataSource adrede en el Form, enlazado a aquel DataSet, y desde este DataSource controlo el cambio de registro:

procedure TForm1.DataSource1DataChange (Sender: TObject; Field: TField);
begin
  if Field = nil then // cambio de registro
    Edit1.Text := TDataSource(Sender).DataSet.FieldByName('Codigo').AsString;
end;