TWinControl = class(TControl)
private
...
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
...
procedure TWinControl.CMMouseWheel(var Message: TCMMouseWheel);
begin
with Message do
begin
Result := 0;
if DoMouseWheel(ShiftState, WheelDelta, SmallPointToPoint(Pos)) then
Message.Result := 1
else if Parent <> nil then
with TMessage(Message) do
Result := Parent.Perform(CM_MOUSEWHEEL, WParam, LParam);
end;
end;
Mouse Wheel in DBGrid?
Как отлавливать ролик мыши хотя бы дбгриде (даже когда он не в фокусе)?
Цитата:
Originally posted by davyd
Как отлавливать ролик мыши хотя бы дбгриде (даже когда он не в фокусе)?
Как отлавливать ролик мыши хотя бы дбгриде (даже когда он не в фокусе)?
Смотрим, как это делается в VCL.
Код:
Описываешь такой же метод в классе своей формы и при приходе этой мессаги прокручиваешь грид куда надо и насколько надо.
Цитата:
Originally posted by D. Lex
Смотрим, как это делается в VCL.
Описываешь такой же метод в классе своей формы и при приходе этой мессаги прокручиваешь грид куда надо и насколько надо.
Смотрим, как это делается в VCL.
Код:
TWinControl = class(TControl)
private
...
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
...
procedure TWinControl.CMMouseWheel(var Message: TCMMouseWheel);
begin
with Message do
begin
Result := 0;
if DoMouseWheel(ShiftState, WheelDelta, SmallPointToPoint(Pos)) then
Message.Result := 1
else if Parent <> nil then
with TMessage(Message) do
Result := Parent.Perform(CM_MOUSEWHEEL, WParam, LParam);
end;
end;
private
...
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
...
procedure TWinControl.CMMouseWheel(var Message: TCMMouseWheel);
begin
with Message do
begin
Result := 0;
if DoMouseWheel(ShiftState, WheelDelta, SmallPointToPoint(Pos)) then
Message.Result := 1
else if Parent <> nil then
with TMessage(Message) do
Result := Parent.Perform(CM_MOUSEWHEEL, WParam, LParam);
end;
end;
Описываешь такой же метод в классе своей формы и при приходе этой мессаги прокручиваешь грид куда надо и насколько надо.
И за это списбо. Но если не затруднит - Пример использования.