Event bei Zeilenwechsel einer DataSource

[Sir Rufo]

Wenn du eine DataSource hast, dann hast du auch ein DataSet, denn die DataSource ist die Brücke zwischen den DBControls (DBGrid, DBEdit, etc.) und einem DataSet.

Die Eigenschaft bei der DataSource heißt zufällig auch DataSet und erwartet etwas vom Typ TDataSet

[LoewenZahn]

Hallo,

danke jetzt habe ich es verstanden

Ich hatte es gerade selbst mit einer anderen Methode gelöst, werde aber wohl auf die Scoll-Events umsatteln.

Selbst hatte ich im OnDataChange der TDataSource, eine Abfrage des .State genutzt. Hinzukommend musste ich um einen Datensatzwechsel zu bemerken, stets die zuletzt angewählte ZeilenNr merken.

Code:

procedure Tfbestelldetails.ds_archivDataChange(Sender: TObject; Field: TField);
begin
  if (ds_archiv.State in [dsBrowse]) and (selected_row <> query_archiv.RecNo) then
  begin
    selected_row := query_archiv.RecNo;
    ...
  end;
end;

Da man jedoch, wie ich es bereits ein paar mal in diesem Forum gelesen habe, globale Variablen vermeiden sollte, wäre die .AfterScroll Variante eine bessere.

Ich bedanke mich für jegliche Hilfe und hoffe das auch dem einem oder anderem ebenfalls geholfen sein wird.

Gruß

[Jumpy]

Da das abarbeiten deines Events nach deiner Aussage etwas länger dauert:

Ich hab das auch mal gebraucht und hatte dann immer Probleme, wenn der Nutzer mit den Pfeiltasten ganz schnell durch meine Daten gelaufen ist. Da hab ich dann in dem Event immer einen Timer gestartet für ein paar Millisekunden und dieser hat dann erst die eigentliche Funktion gestartet.
Wurde zwischenzeitlich zu einem weitereren Datensatz gewechselt wurde der Timer neu gestartet.

Ich hab übrigens genau wie du DataChange usw. benutzt. Kann es sein das es AfterScroll usw. in D6 noch nicht gab und ich mir das daher so angewöhnt habe?

[LoewenZahn]

Hallo Jumpy,

danke für deinen Hinweis, die Idee mit dem Timer werde ich vll auch einsetzen. Das würde mir einige unnütze SQL-Abfragen ersparen.

Gruß