Главная страница
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.054 c
14-1123759636
Павел
2005-08-11 15:27
2005.09.04
Delphi &amp; КПК


11-1106493845
Boguslaw
2005-01-23 18:24
2005.09.04
How to make TKOlLabel really autosized ?


8-1113403006
Unknown user
2005-04-13 18:36
2005.09.04
Разрешение картинки


14-1123758028
ПЛОВ
2005-08-11 15:00
2005.09.04
Любители ужОсов :)


14-1123878999
romychk
2005-08-13 00:36
2005.09.04
пересылка файлов модемом