Einzelnen Beitrag anzeigen

Siggi

Registriert seit: 19. Jun 2004
Ort: Lollar
52 Beiträge
 
Delphi 11 Alexandria
 
#1

dbnavigator nbRefresh überschreiben

  Alt 19. Feb 2017, 19:45
Datenbank: friebird • Version: 2 • Zugriff über: Zeos
Hi,

ich habe in Delphi 2010 eine DBNavigator-Komponente auf dem Formular.

Nun kann es ja vorkommen, dass ein Datensatz im Formular geladen wird und datenbankseitig währenddessen etwas verändert wird. Daher ist in der DBNavigator-Komponente auch der nbRefresh-Button klickbar (ja, wenn man den nicht anklickt bekommt man die Änderung auch nicht nicht mit, aber das ist ein anders Thema).

Mein Verständnisproblem ist nun folgendes:
- ich lade den Datensatz
- ich ändere per SQL nebenher etwas an diesem Datensatz, so dass es die Applikation erst mal nicht mitbekommt
- ich licke auf nbRefresh um die aktualisierten Daten zu laden

Delphi lädt die Daten neu, springt aber zum ersten Datensatz der query. Blättere ich zum geänderten Datensatz ist dort alles OK. Störend ist nur der Sprung zum ersten Datensatz.

Nichts leichter als das, dachte ich, und habe die folgende Procedure erstellt:

Delphi-Quellcode:
procedure TfrmMedia.sDBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
  theBookmark: TBookmark;
begin
  case Button of
    nbRefresh:
      begin
        theBookmark:=dsMedia.DataSet.GetBookmark;
        dsMedia.DataSet.Refresh;
        dsMedia.DataSet.GotoBookmark(theBookmark);
      end;
  end;
end;
Dabei passiert aber Folgendes:
- theBookmark wird gefüllt
- DataSet.refresh wird ausgeführt
- GotoBookmark wird ausgeführt (allerdings scheint dabei irgendetwas ungewolltes zu passieren, denn danach folgender Code (testweise mal ein abort eingefügt) wird nicht ausgeführt)
- es wird aber anschließend die normale Behandlung für nbRefresh ausgeführt und Delphi springt wieder zum ersten Datensatz

Wo ist hier mein Denkfehler?

Stehe auf dem Schlauch . Vielen Dank für alle Tipps die mich da runter schubsen...

Siggi
  Mit Zitat antworten Zitat