Código Delphi [-] procedure TForm1.DBGrid1CellClick(Column: TColumn); const COLUMNA_DEL_ID = 0; // Nro. columna del campo ID begin if Column.Index = COLUMNA_DEL_ID then EditDelAlta.Text:= Column.Field.AsString; end;
procedure TForm1.DBGrid1CellClick(Column: TColumn); const COLUMNA_DEL_ID = 0; // Nro. columna del campo ID begin if Column.Index = COLUMNA_DEL_ID then EditDelAlta.Text:= Column.Field.AsString; end;