Получить выделение в DBGrid

@artem78 · Регистрация: 20.12.2012

Author24 — интернет-сервис помощи студентам

На форме имеется компонент DBGrid. В контекстном меню нужно выполнить некоторое действие над выбранной строкой.

Pascal

procedure TForm1.CalcMenuItemClick(Sender: TObject);
begin
  if ItemsGrid.SelectedRows.Count = 0 then
  begin
    ShowMessage('Ничего не выбрано!');
    Exit;
  end;
 
  with TCalcForm.Create(Form1) do
  begin
    try
      ItemsGrid.DataSource.DataSet.Bookmark := ItemsGrid.SelectedRows.Items[0];
      Amount := ItemsGrid.DataSource.DataSet.FieldByName('amount').AsFloat;
      if (Amount = 0) then
         Amount := 1;
      ShowModal;
    finally
      Free;
    end;
  end;
end;

Прблема в том, что SelectedRows.Count всегда выдаёт 0 строк. Что интересно, если включить множественное выделение (которое мне не нужно), то этот код будет работать правильно.

В Options стоят следующие флаги: dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAnyButtonCanSelect

	24.02.2020, 18:56