Форум: "Базы";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c