Thema: Delphi TDBGrid OnMouseWheel

Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

TDBGrid OnMouseWheel

  Alt 1. Sep 2009, 10:17
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?
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat