Ver Mensaje Individual
  #3  
Antiguo 14-06-2021
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Reputación: 21
mRoman Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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
SI DANIEL....esto era lo q andaba buscando!!...muchas gracias. Nada de lo q habia comentado (DisableControls y Bookmark)...jajajaj....

Gracias nuevamente.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita