Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.084 c
1-1123661183
Andry
2005-08-10 12:06
2005.09.04
Размер шрифта


3-1122380056
Андрей Жук
2005-07-26 16:14
2005.09.04
Что неверно в UDF?


1-1123239946
afanasic
2005-08-05 15:05
2005.09.04
Как сделать, чтобы окно отображалось поверх TaskBar?


4-1121495304
Михаил(Киров)
2005-07-16 10:28
2005.09.04
Блокировка клавиатуры


4-1121376723
Igit
2005-07-15 01:32
2005.09.04
как получить hProcess своего процесса