TDBGrid OnMouseWheel

[Andidreas]

aloah,

wir haben auf einer form ein dbgrid in dem diverse daten angezeigt werden...
je zeile die markiert ist sollen in einem anderen teil der form mehr details zu dem markierten datensatz aus dem dbgrid angezeigt werden...
um das ganze benutzerfreundlich zu machen haben wird im "oncellclick" "onkeypress" und "onmousewheel" eine aktualsierung auf die detail anzeige eingefügt...

im "oncellclick" und "onkeypress" funktionierte die aktualisierung auf anhieb...

im "onmousewheel" nicht... hier hat er immer 'verzögert' die daten aktualsiert d.h. beim datensatz 2 im dbgrid hat er in der detail anzeige die daten vom datensatz 1 angezeigt... usw...

über folgenden code haben wir das problem gelöst:

Delphi-Quellcode:

  if wheeldelta = -120 then
  begin
    dbgrid1.datasource.dataset.Next;
    Label1.Caption := 'Size: ' + (dbm.query.FieldByName('Feld1').asstring);
    dbgrid1.DataSource.DataSet.Prior;
  end;

  if wheeldelta = 120 then
  begin
    dbgrid1.datasource.dataset.prior;
    Label1.Caption := 'Size: ' + (dbm.query.FieldByName('Feld1').asstring);
    dbgrid1.DataSource.DataSet.next;
  end;

gibt es hierfür noch eine elegantere lösung?