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

Вниз

DBGrid & MouseWheel   Найти похожие ветки 

← →
andy11 ©   (2003-01-27 13:31) [0]

Как сделать чтобы при "вращении" колеса не просто ячейки перерисовывались, а менялась текущая запись???

---

← →
myor ©   (2003-01-27 13:36) [1]

table1.next?

---

← →
Kuusiniemi ©   (2003-01-27 13:39) [2]

RXDbGrid - посмотрите как реализованы DoWheelMouseUp и DoWheelMouseDown

---

← →
sniknik ©   (2003-01-27 13:49) [3]

опиши свой класс и от него и гриды делай,
DBGrid1:= TMyDBGrid.Create (или свой компонент сделай)
класс

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;

(реализация простейшая, но работает)

---

← →
sniknik ©   (2003-01-27 13:50) [4]

забыл в начале еще тип события прописать надо

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

---

← →
Pat ©   (2003-01-27 13:55) [5]


procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message=WM_MOUSEWHEEL then
begin
Msg.message:=WM_KEYDOWN;
if Msg.wParam>0
then Msg.wParam:=vk_up
else Msg.wParam:=vk_down;
end;

end;



---

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

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

Наверх

Память: 0.47 MB
Время: 0.022 c