Кто подскажет (точнее кто знает ) как изменить комбинацию клавиш в DBGrid с стандартной (Ctrl + mbLeft) на правую кнопку мыши, при выделении нескольких записей (dgMultiSelect)? Заранее спасибо.

Используй компонент DBGridEh, для жителей бывшего СССР этот компонент бесплатный. Где скачать? Поищи на форуме, здесь есть поиск. Я не сторонник "нестандартных" компонентов для Delphi, но этот компонент того стоит.

Я тоже не любитель "нестандартных" компонентов и EhLib не исключение. У этого грида глюки с канвой и рефрешируется плохо. Но, и без этого у него MultiSelect такой же как и в стандартном (Ctrl + mbLeft) . Что не является решением проблемы. Или я что-то не так настроил...?

Попробуй так:

Код

procedure TfrmMain.dbg1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var  crd : TGridCoord; begin  if Button = mbRight then  begin    crd := dbg1.MouseCoord(x, y);    dbg1.SelectedIndex := crd.Y;    dbg1.SelectedRows.CurrentRowSelected := not dbg1.SelectedRows.CurrentRowSelected;  end; end;

Или можно на MouseMove повесить, чтобы еще выделялось, когда водишь мышью по записям с нажатой правой кнопкой.
Тогда там еще прибавиться строчек 5...

2 p0s0l: не будет оно работать. хотя бы потому, что при включенном dgMultiSelect выделение производится при нажатии на кнопку, а не отпускании (кстати, при нажатом Ctrl можно выделять записи как левой, так и правой кнопкой мыши, так что особого смысла в

Код

if Button = mbRight then...

я лично не вижу. твой код в любом случае оставит возможность выделять записи по Ctrl+mbLeft, но я сильно сомневаюсь, что он будет делать что-то осмысленное по одному только правому клику.

в subj. мне кажется, что самый грамотный вариант, это вести свой список и при отрисовке подсвечивать его как угодно.

Цитата

. У этого грида глюки с канвой и рефрешируется плохо.

!!!А более конкретно.
У меня пока все нормально. Нельзя ли поподробнее.

x77, ну насчет того как убрать Ctrl_mbLeft я подумаю, но ты так категорично заявляешь что это не работает - теперь я проверил - все работает, смущает только то, что цвет выбранной строки совпадает с цветом выделения - из-за этого непонятно, выделена текущая строчка или нет, но по индикатору слева видно, что все работает. правда, оказалось можно легче:

Код

procedure TfrmMain.dbg1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbRight then   dbg1.SelectedRows.CurrentRowSelected := not dbg1.SelectedRows.CurrentRowSelected; end;

А насчет отпускания и нажатия - событие MouseDown вообще НИКОГДА не вызывается, что как-то странно. Поэтому пришлось вешать на MouseUp...

Всё! Теперь Ctrl+MouseClick не действует.

Код

procedure TfrmMain.dbg1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin  if (Button = mbRight) or (ssCtrl in Shift) then  dbg1.SelectedRows.CurrentRowSelected := not dbg1.SelectedRows.CurrentRowSelected; end;

Правда, если включен индикатор слева, то видно, что на какую-то долю секунды строчка временно выделяется...

проверил. не работает . и не должен работать . ни с нажатым Ctrl, ни с отпущенным. выделяет одну строку, при щёлканьи на другой - предыдущее выделение сбрасывается.

З.Ы.
насчёт категоричности - каюсь, прости засранца

Дак ты наверное левой кнопкой щелкал ?
Или мультиселект не врубил ?


Это сообщение отредактировал(а) p0s0l - 12.9.2003, 15:00

ээээ, батенька, мы говорим о разных вещах. в сабже сказано, что требуется "изменить комбинацию клавиш в DBGrid с стандартной (Ctrl + mbLeft) на правую кнопку мыши". как я понимаю, одну только правую кнопку. без Ctrl. поэтому я и говорил, что оно не работает (с точки зрения постановки задачи).

и модифицированный вариант тоже работать не будет

он, собственно, и с Ctrl работать не будет. будет выделяться только одна запись

Цитата

"изменить комбинацию клавиш в DBGrid с стандартной (Ctrl + mbLeft) на правую кнопку мыши". как я понимаю, одну только правую кнопку. без Ctrl.

Я именно так и понял - так и работает...
И всякие оптионсы и проперти менял - всегда работает, если только не включить MultiSelect...
Кинь мне на мыло свою тестовую прогу (исходник) - я гляну.

ну, с отключенным MultiSelect вообще нифига не работает, а со включенным - выделяется текущая запись, при клике на следующую - выделяется следующая (с первой выделение снимается). Delphi 5.0/Win XP Pro.