| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Прокрутка DBGrid колесиком [D7]

Igor Mish ©   (2003-04-23 12:37:00) 

Как сделать так чтобы DBGrid можно было прокручивать колесиком мыши от начала до конца , а не только в видимой области.

---

Тих   (2003-05-01 19:48:00) [1]

Охренеть... С учетом того, что WM_MOUSEWHEEL может посылаться
-дцать раз в секунду, юзать для фунционала ексепшны - больно жирно, мне так кажется... Хотя, хозяин - барин :-)

---

sunrider   (2003-05-01 00:17:00) [2]

Я уже показывал сегодня в форуме как другим способом это можно сделать не создавая новый компонент-наследник. Определи стандартным способом две процедуры на пример FormMouseWheelDown и
FormMouseWheelUp, затем где-нибудь воспольхзоваться тем, что
DBGrid наследник TControl. Данный код у меня работает нормально

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
try
raise EAbort.Create("");
finally
TDBGrid(Sender).DataSource.DataSet.Prior;
end;
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
try
raise EAbort.Create("");
finally
TDBGrid(Sender).DataSource.DataSet.Next;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TForm(DBGrid1).OnMouseWheelDown:=Form1.FormMouseWheelDown;
TForm(DBGrid1).OnMouseWheelUp:=Form1.FormMouseWheelUp;
end;

---

Kuusiniemi   (2003-04-23 13:57:00) [3]

1. RXDbGrid.
2. EhGrid.

---

sniknik   (2003-04-23 13:48:00) [4]

нужно переопределить одно событие в гриде (или 2 ап и даун)


TWMMouseWheel = packed record
Msg: Cardinal;
Keys: SmallInt;
WheelDelta: SmallInt;
case Integer of
0: (
XPos: Smallint;
YPos: Smallint);
1: (
Pos: TSmallPoint;
Result: Longint);
end;

TMyDBGrid = class(TDBGrid)
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
end;


само
procedure TMyDBGrid.WMMouseWheel(var Message: TWMMouseWheel);
begin
if DataSource.DataSet.Active then begin
if Message.WheelDelta > 10 then DataSource.DataSet.Prior;
if Message.WheelDelta < -10 then DataSource.DataSet.Next;
end;
end;

пользоватся естественно придется переопределенным гридом (можно сделать его компонентом).

---

Наверх