| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Скрол (мышыный) в гриде [D7, Win2k]

Barsky ©   (2006-01-11 13:18:00) 

Есть DBGrid (RowSelect=True).
Если перемещаться по строкам кликами или кнопками, то все ок.
Если же пробывать использывать скрол на мышке, то перемещается только полоса выделения (синянькая), а треугольничек слева (в фиксиорованном столбце) стоит на прежнем месте. Как починить?

---

Германн   (2006-01-11 16:36:00) [1]

> Я не спорю что Rx хорошая библиотека, но предпочитаю не
> пользоваться.


Дык я же не заставляю пользоваться. Я советую посмотреть в её исходниках как там реализовано. А там реализовано грамотно.

---

Savek   (2006-01-11 16:24:00) [2]

Где-то был выложен вот такой код, у меня работает:


procedure TBaseForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
 var I : SmallInt;
begin
 if Msg.message= WM_MOUSEWHEEL then begin
    Msg.message:=WM_KEYDOWN;
    Msg.lParam:=0;
    i:=HiWord(Msg.wParam);
    if i>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
    Handled:=false;
  end;
end;

procedure TBaseForm.FormCreate(Sender: TObject);
begin
Application.OnMessage:=BaseForm.AppMessage;
end;



---

Barsky   (2006-01-11 16:06:00) [3]

Я не спорю что Rx хорошая библиотека, но предпочитаю не пользоваться.

Как можно решить поставленную мной задачу? Есть идеи?
Желательно ничего не качая...

---

Германн   (2006-01-11 15:58:00) [4]

> Тоесть обязательно качать RxLib, иначе никак?


Да нет, необязательно.
Но - полезно. И не только для этого сабжа.

---

Barsky   (2006-01-11 15:43:00) [5]

Тоесть обязательно качать RxLib, иначе никак?

А как можно узнать на какая запись выделена?
Добавлю что MultiSelect=False

---

Германн   (2006-01-11 15:22:00) [6]

Посмотреть как это сделано в RxLib и сделать по образу и подобию.

---

Наверх