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

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

Прокрутка в DBGrid [D7, WinXP]

tazik ©   (2005-08-13 21:59:00) 

Здравствуйте!

Возможно ли сделать нормальную прокрутку в DBGrid?

Спасибо.

---

jack128   (2005-08-13 22:59:00) [1]

DataSet.Open;
DataSet.Last;
DataSet.First;

---

tazik   (2005-08-13 22:20:00) [2]

Так, так, у меня хомяк без колес. Или это код можно еще преобразовать?
Я хочу что бы был нормальный скролер, например, как в ListView. Что бы левой кнопкой мыши можно было прокручивать.

---

GanibalLector   (2005-08-13 22:06:00) [3]


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


---

Наверх