Скачать: CL | DM;

Скрол (мышыный) в гриде   Найти похожие ветки 

← →
Barsky ©   (2006-01-11 13:18) [0]

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

---

← →
Германн ©   (2006-01-11 15:22) [1]

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

---

← →
Barsky ©   (2006-01-11 15:43) [2]

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

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

---

← →
Германн ©   (2006-01-11 15:58) [3]

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


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

---

← →
Barsky ©   (2006-01-11 16:06) [4]

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

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

---

← →
Savek   (2006-01-11 16:24) [5]

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


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;



---

← →
Германн ©   (2006-01-11 16:36) [6]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c