Ver Mensaje Individual
  #11  
Antiguo 16-07-2003
andres1569 andres1569 is offline
Miembro
 
Registrado: may 2003
Posts: 908
Reputación: 22
andres1569 Va por buen camino
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:

Código:
procedure TForm1.DataSource1DataChange (Sender: TObject; Field: TField);
begin
  if Field = nil then // cambio de registro
    Edit1.Text := TDataSource(Sender).DataSet.FieldByName('Codigo').AsString;
end;
__________________
Guía de Estilo
Responder Con Cita