DBGrid mit Anzeige der aktueller Position bei Drag&Drop

[Gerald]

Hallo Leute!

In einer Anwendung halte ich die Rechnungspositionen in einem DBGrid. Sortiert werden die Position mit dem Datenbankfeld "POS". Ich möchte dem Anwender nun beim Drag&Drop der Rechnungspositionen die aktuelle Position der Zeile, auf die Position verschoben werden soll, in einem Label anzeigen.

Dazu verwende ich in der Methode DragOver folgenden Code:

Delphi-Quellcode:

procedure TfmRechnung.edPositionDragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
var
  Coord: TGridCoord;
  PosDragFrom, PosDragTo: Integer;
begin
  inherited;
  Coord := TSemDBGrid(Source).MouseCoord(X, Y);
  (* Label aktualisieren *)
  PosDragFrom := TSemDBGrid(Source).DataSource.DataSet.FieldByName('pos').AsInteger;
  PosDragTo := Coord.Y;
  if PosDragTo < 10 then edDragDrop.Width := 14;
  if (PosDragTo >= 10) and (PosDragTo < 100) then edDragDrop.Width := 21;
  if (PosDragTo >= 100) then edDragDrop.Width := 28;
  (* Text ausgeben *)
  edDragDrop.Text := ' ' + IntToStr(PosDragTo);
  edDragDrop.Left := TSemDBGrid(Source).Left + X;
  edDragDrop.Top := TSemDBGrid(Source).Top + Y - 20;
  edDragDrop.Visible := (PosDragTo >= 1) and (Coord.X >= 1);
  (* Akzeptanz des Drag *)
  Accept := (Sender = Source) and (Coord.Y > 0);
end;

Das funktioniert auch so weit gut, so lange alle Positionen im DBGrid sichtbar sind. Muß gescrollt werden, liefert mir Coord.Y nur mehr die relative Position im Grid nicht mehr aber die absolute Position in der gesamten Tabelle bzw Grid.

Meine Frage nun:

Wie kann ich die absolute Position der Zeile in dem DBGrid ermitteln (zB. um wie viele Datensätze verschoben wurde) oder wie kann ich auf ein bestimmtes Datenbankfeld (in diesem Fall auf TSemDBGrid(Source).DataSource.DataSet.FieldByName( 'pos').AsInteger) in der Zeile zugreifen in der ich mich aktuell mit dem Drag Cursor befinde?

Ich verwende Delphi5 Enterprise als Entwicklungsumgebung und Firebird 1.5 als Datenbank.

Bitte um Hilfe

Gerald