| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Навигация по dbgrid у при multiselect е [D5]
Alik Chu © (2002-05-27 14:13:00)Народ, столкнувшись с мультиселектом, получил проблемы и с клавиатурной навигацией по dbgrid"у:
Надо, чтобы юзер могу пробелом выделять строки, а стрелками перемещаться по записям, но стрелки, как известно, снимают выделение...
Что надо сделать, чтобы ОНИ (стрелки) только перемещали курсор, без каких-либо иных последствий?
Lusha (2002-05-29 09:52:00) [1]Достаточно написать свой обработчик на OnKeyDown...
Вида...
if Key = VK_SPACE then
begin
TDBGrid(Sender).SelectedRows.CurrentRowSelected := not TDBGrid(Sender).SelectedRows.CurrentRowSelected;
Key := 0;
end;
if Key = VK_DOWN then
begin
TDBGrid(Sender).DataSource.DataSet.Next;
Key := 0;
end;
if Key = VK_UP then
begin
TDBGrid(Sender).DataSource.DataSet.Prior;
Key := 0
end;
Kuusiniemi (2002-05-27 15:50:00) [2]Есть два варианта:
1. Скопируйте в директорию Вашего проекта dbgrids.pas и исправьте там procedure TCustomDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
Смотрите вызовы локальной процедуры procedure ClearSelection;
2. Сделайте своего насленика от TCustomDBGrid и переопределите для него KeyDown.
| |
