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

Вниз

Прокрутка в DBGrid   Найти похожие ветки 

← →
tazik ©   (2005-08-13 21:59) [0]

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

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

Спасибо.

---

← →
GanibalLector ©   (2005-08-13 22:06) [1]


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


---

← →
tazik ©   (2005-08-13 22:20) [2]

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

---

← →
jack128 ©   (2005-08-13 22:59) [3]

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

---

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

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

Наверх

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