VPF::навигация по Dbgrid - Форум программистов

innok

Дата 9.11.2004, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 12.10.2004

Репутация: 1
Всего: 1

проблема такая:
нужно сделать прокрутку в dbgrid колесом мыши. По умолчанию - прокручивается только в видимой области, причем indicator(треугольник) не смещается.
пробовал создать:

Код


procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
if DBGrid1.Focused then
DataModule1.Table1.Next;
DBGrid1.Repaint;
end;

но при наличии dbgrid на форме форма не ловит событие MouseWheelUp

Guest

Дата 9.11.2004, 16:39 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

посмотри по ссылке

p0s0l

Дата 9.11.2004, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: нет
Всего: 112

Можно так:

Код


type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    procedure FormCreate(Sender: TObject);
    procedure DBWheelUp (Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
    procedure DBWheelDown (Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBWheelUp;
begin
  DBGrid1.DataSource.DataSet.Prior;
  DBGrid1.Refresh;
  Handled := True;
end;

procedure TForm1.DBWheelDown;
begin
  DBGrid1.DataSource.DataSet.Next;
  DBGrid1.Refresh;
  Handled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TDrawGrid(DBGrid1).OnMouseWheelUp := DBWheelUp;
  TDrawGrid(DBGrid1).OnMouseWheelDown := DBWheelDown;
  DBGrid1.DoubleBuffered := True;
end;

Это сообщение отредактировал(а) p0s0l - 9.11.2004, 19:27

--------------------

С уважением, г-н Посол.

Medved

Дата 10.11.2004, 03:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 1
Всего: 154

Как альтернативой, можно воспользоваться гридом из библиотеки EhLib. Он поддерживает прокрутку по умолчанию.

Кстати там можно посмотреть и реализацию. Она поставляется с исходниками.

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »