| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как поправить прокрутку в DBGrid [D5, MSSQL]
svv1 © (2002-08-21 15:02:00)Привет!
Вот какой вопрос: при работе мышкой со скролом (колесом) возникает интересная ситуация: выделение смещается а активная запись нет.
Нет ли способа чтобы при вращении скрола смещалась именно активная запись, ну и конечно выделенная ячейка?
Разработка: ADO и DBGrid
Другие компоненты не приемлемы :(
Заранее признателен
svv1 (2002-08-21 16:52:00) [1]Тоже спасибо!
Сам только что до этого допер.... ;)
Александр Спелицин (2002-08-21 16:16:00) [2]Поставьте драйвера к Вашей мыше от ее производителя. У меня такое было с Logitech MS48 на W2k Prof со стандартными мелкомягкими драйверами.
svv1 (2002-08-21 16:08:00) [3]Большое спасибо!
Все сработало!
Ученик (2002-08-21 15:18:00) [4]procedure TForm1.GridMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
DBGrid1.DataSource.DataSet.MoveBy(1)
end;
procedure TForm1.GridMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
DBGrid1.DataSource.DataSet.MoveBy(-1)
end;
type
TProtectedDBGrid = class(TDBGrid);
procedure TForm1.FormCreate(Sender: TObject);
begin
with TProtectedDBGrid(DBGrid1) do begin
OnMouseWheelUp := GridMouseWheelUp;
OnMouseWheelDown := GridMouseWheelDown
end
end;
| |
