Форум: "Базы";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
ВнизНавигация по dbgrid у при multiselect е Найти похожие ветки
← →
Alik Chu (2002-05-27 14:13) [0]Народ, столкнувшись с мультиселектом, получил проблемы и с клавиатурной навигацией по dbgrid"у:
Надо, чтобы юзер могу пробелом выделять строки, а стрелками перемещаться по записям, но стрелки, как известно, снимают выделение...
Что надо сделать, чтобы ОНИ (стрелки) только перемещали курсор, без каких-либо иных последствий?
← →
Kuusiniemi (2002-05-27 15:50) [1]Есть два варианта:
1. Скопируйте в директорию Вашего проекта dbgrids.pas и исправьте там procedure TCustomDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
Смотрите вызовы локальной процедуры procedure ClearSelection;
2. Сделайте своего насленика от TCustomDBGrid и переопределите для него KeyDown.
← →
Lusha (2002-05-29 09:52) [2]Достаточно написать свой обработчик на 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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c