Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

Скролинг в DBGrid   Найти похожие ветки 

← →
aglar   (2004-12-05 14:29) [0]

Скролинг колесиком мыши ограничивается высотой DBGrid. Как быть?

---

← →
GanibalLector ©   (2004-12-05 16:50) [1]


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
if Msg.message = WM_MOUSEWHEEL then   begin
//Form2
if (assigned(Form2)) then  begin
if Form2.DBGrid1.Focused then
if Form2.DBGrid1.DataSource.DataSet.Active then begin
IF(( msg.wParam <=32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form2.DBGrid1.DataSource.DataSet.Next;
IF(( msg.wParam > 32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form2.DBGrid1.DataSource.DataSet.Prior;
Handled:=true; end;
end;
...



---

← →
aglar   (2004-12-07 22:19) [2]

Спасибо, работает!

---

← →
KSergey ©   (2004-12-08 13:57) [3]

А вообще думаю даже можн осмело сказать - правильнее - надо взять грид, который это поддерживает. Тот же RxLib, бесплатный.

---

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

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.049 c