Ver Mensaje Individual
  #2  
Antiguo 10-06-2021
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

No sé si estoy entendiendo bien la situación, pero interpreto que deseas pasar los datos de la fila apuntada mediante las teclas flecha abajo/arriba a los Edits.
De ser así, me parece que tendrías que usar el evento AfterScroll del TDataSet asociado.

Como ejemplo:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  DBGrid1.DataSource.DataSet.AfterScroll := DataSetAfterScroll;
end;

procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
begin
  Edit1.Text := tbName.AsString;   // Campos persistentes de la tabla
  Edit2.Text := tbCapital.AsString;
  Edit3.Text := tbContinent.AsString;
  Edit4.Text := tbArea.AsString;
  Edit5.Text := tbPopulation.AsString;
end;

...

Resultado:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 10-06-2021 a las 01:35:09.
Responder Con Cita