Подсказка для себя
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
procedure TEventsListView.DBGridCellClick(Column: TColumn); begin //ShowMessage(DBGrid.SelectedIndex.ToString); //DBGrid.DataSource.DataSet.RecNo; // <<Это номер записи, на которой стоит курсор ShowMessage( DBGrid.DataSource.DataSet.FindField('id').AsInteger.ToString ); ShowMessage( DBGrid.DataSource.DataSet.FindField('Name').AsString ) end; |