Прокрутка в 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. Что бы левой кнопкой мыши можно было прокручивать.

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

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