Колесико мыши в TDBGrid

[Glob]

Пытаюсь сделать так что бы при изменении активной записи в TDBGrid данные передавались в TEdit

тут все отрабатывает нормально:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  edit2.text := ADOQuery1.FieldByName('tonn').AsString;
end;

пытаюсь реализовать управление колесиком мыши - там тоже отрабатывает, но в edit2 передается значение предыдущей записи:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if dbGrid1.Focused then
begin
  if Msg.Message = WM_MOUSEWHEEL then
    begin
      Msg.Message := WM_KEYDOWN;
      Msg.lParam := 0;
      if Msg.wParam > 0 then
        begin
          Msg.wParam := VK_UP;
          edit2.text := ADOQuery1.FieldByName('tonn').AsString;
        end
      else
        begin
          Msg.wParam := VK_DOWN;
          edit2.text := ADOQuery1.FieldByName('tonn').AsString;
        end;
      Handled := False;
    end;
end;
end;

что я упустил?

[phomm]

Для чтения текущей записи необходимо не на события грида подписываться, а на событие OnAfterScroll датасета, который этот грид показывает, однако, надо контролировать это дело и при необходимости отписываться (в коде присваивать nil в событие), чтобы не было ошибок.
При этом не надо делать кучу обработчиков на всякие клики, скролы, стрелки клавы и т.п. , поскольку это событие перехватывет именно изменение текущей записи самого датасета.

[Dvoishnik]

phomm при скроле по DBGrid активная запись разве меняется в DataSet?
Grid активный колесиком мышки елозят бегает синие окошечко по записям но активная не меняется, разве не так?

[Glob]

Сообщение от Dvoishnik

phomm при скроле по DBGrid активная запись разве меняется в DataSet?
Grid активный колесиком мышки елозят бегает синие окошечко по записям но активная не меняется, разве не так?

меняется, но вот гадство с отставанием на предыдущую.
если после этого сразу нажать на button с кодом

edit2.text := ADOQuery1.FieldByName('tonn').AsString;

но Edit заполняется нормально, а при скролле отстает

[Vapaamies]

Сообщение от Glob

а при скролле отстает

Какая версия Delphi? Похоже на баг VCL. В старых версиях (5-7) были баги с колесиком, если не изменяет память.

[kropotkina-alice]

Сообщение от Vapaamies

Какая версия Delphi? Похоже на баг VCL. В старых версиях (5-7) были баги с колесиком, если не изменяет память.

Никакого бага там не было и нет. Просто переход на другую запись в датасете не может быть обработан во время обработки служебного сообщения, которое и призвано вызвать этот переход...
Поэтому и инфа берется из предыдущей записи...

Сообщение от Glob

меняется, но вот гадство с отставанием на предыдущую.
... при скролле отстает

И "гадства" никакого тут тоже нет.
Вам уже намекали, что строку

edit2.text := ADOQuery1.FieldByName('tonn').AsString;

надо убрать из обработчика
procedure TForm1.ApplicationEvents1Message()
и вставить в обработчик
procedure TForm1.ADOQuery1AfterScroll()...
И потом радоваться отсутствию отставания...