Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > как выделить другую строку в ДБГРИД

Автор: maxfox111 25.8.2014, 20:30

Добрый день,
если можно помогите разобраться со своими ошибками.

Задача:

Options.gdRowSelect = True
Необходимо перемещаться в ДБгрид используя только клавиатуру, то есть только стрелки вверх и вниз
везде на форумах написано для этого необходимо использовать вызовы

Код


DBGrid.DataSource.DataSet.Next;
DBGrid.DataSource.DataSet.Prior;

или

Код


DBGrid.DataSource.DataSet.MoveBy(TComponent(Sender).Tag);
DBGrid.SetFocus;

НО
При использовании таких вызовов, происходит изменение положения “курсора” (не знаю, как более правильно сказать :()
но новая строка не становится выделенной.
DBGrid.SelectedRows.Count возвращает «0»

то есть условно:
есть выделенная 5-я строка (DBGrid.SelectedRows.Count возвращает «1»)
выполняется нажатие клавиши стрелка вниз
должна выделятся 6-я строка (ожидаю DBGrid.SelectedRows.Count = 1 )
но 6-я строка не выделяется и выделение с 5-й строки тоже снимается.

как изменить положение выделенной строки в дбгрид?
как выделить другую строку при нажатии на стрелку вниз?

Автор: northener 26.8.2014, 01:21

Цитата(maxfox111 @ 25.8.2014, 20:30

)

Т.е. без фокуса на самом DBGrid?(
Ибо если фокус ввода на нём, то и делать самому ручками ничего не надо. И курсор и селектед сами изменятся.)

Тогда скажи зачем это нужно, помятуя о том что в ДБгрид ничего не было, нет и не будет никогда.

Автор: maxfox111 26.8.2014, 12:07

Прошу извинить, забыл видимо написать самую главную часть

Options.dgMultiSelect установлено в TRUE

Как при перемещении стрелками вниз вверх, менять выделение строки?

то есть условно:
есть выделенная 5-я строка (DBGrid.SelectedRows.Count возвращает «1»)
выполняется нажатие клавиши стрелка вниз
должна выделятся 6-я строка (ожидаю DBGrid.SelectedRows.Count = 1 )
но 6-я строка не выделяется и выделение с 5-й строки тоже снимается. то есть DBGrid.SelectedRows.Count = 0

Автор: maxfox111 26.8.2014, 13:30

ВСЕ ОГРОМНОЕ СПАСИБО
вопрос решен

Код


procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  DBGrid1.SelectedRows.CurrentRowSelected := True;
end;