Текущий архив: 2002.07.15;
Скачать: CL | DM;
Вниз
Еще о DBGrid Найти похожие ветки
← →
Teas © (2002-06-19 13:02) [0]Мастера, помогите разобраться с скроллером мыши. Когда я прокручиваю записи в DBGrid скроллером, то прокрутка идет только в пределах экрана. И чтобы прокрутить всю таблицу приходиться прибегать к клавиатуре. Как решить?
← →
Lusha © (2002-06-19 14:54) [1]Например так...
type
TMyDBGrid = class(TDBGrid);
TForm1 = class(TForm)
DBGrid1: TDBGrid;
...
procedure FormCreate(Sender: TObject);
...
private
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
...
end;
...
implementation
...
procedure TForm1.FormCreate(Sender: TObject);
begin
TMyDBGrid(DBGrid1).OnMouseWheelDown := MouseWheelDown;
TMyDBGrid(DBGrid1).OnMouseWheelUp := MouseWheelUp;
end;
...
procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
TMyDBGrid(Sender).DataSource.DataSet.Next;
Handled := True;
end;
procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
TMyDBGrid(Sender).DataSource.DataSet.Prior;
Handled := True;
end;
...
← →
Teas © (2002-06-19 21:06) [2]Lusha, спасибо вам. Вы даете отличные примеры.
Страницы: 1 вся ветка
Текущий архив: 2002.07.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
