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

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

Скролинг в DBGrid [D6, Paradox]

aglar ©   (2004-12-05 14:29:00) 

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

---

KSergey   (2004-12-08 13:57:00) [1]

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

---

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

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

---

GanibalLector   (2004-12-05 16:50:00) [3]


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;
...



---

Наверх