Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

Нужно чтобы скролл мыши листал записи в DBGrid e   Найти похожие ветки 

 
Леха5   (2004-09-03 14:04) [0]

Когда скроллишь листаются записи до концца области DBGrid"a, а записей намного больше, чем его область. Можно ли сделать листание по всем записям.


 
Роман Снегирев   (2004-09-03 14:10) [1]

нельзя, забудь про TDBGrid, используй другие компоненты, хотя можешь и исходники стандартного грида поправить


 
Rule ©   (2004-09-03 14:14) [2]

Ты сначала эти записи с сервака забери, чтоб было что листать, я вот не знаю что там со стандартным гридом, но в DBGridEx  все нормально листается по тем записям, которые забраны с сервера, если не знаешь как забрать все записи то FetchAll


 
sniknik ©   (2004-09-03 14:26) [3]

type
 TMyDBGrid = class(TDBGrid);

 TForm1 = class(TForm)
 ...
 private
 procedure GrigMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 TMyDBGrid(DBGrid1).OnMouseWheel:= GrigMouseWheel;
end;

procedure TForm1.GrigMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 with TDBGrid(Sender).DataSource.DataSet do
 if Active then begin
   if WheelDelta > 10 then Prior;
   if WheelDelta < -10 then Next;
   Handled:= true;
 end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
6-1090399035
RaPToR_1
2004-07-21 12:37
2004.10.03
хттп в веббраузере


4-1093381845
WELLiON
2004-08-25 01:10
2004.10.03
Отрубить клаву, мышь и монитор.


3-1094450667
Fynjy1984
2004-09-06 10:04
2004.10.03
Дерево


1-1095106051
HydraMarat
2004-09-14 00:07
2004.10.03
Int64 vs Integer


14-1095136210
Tiam
2004-09-14 08:30
2004.10.03
Что вы об этом думаете?