Aktuelle Cursorposition im RecordSet-Objekt auslesen?

[neolithos]

Und was war mit rst.AbsolutePosition > 0 ?

[mirko2000]

Zitat:

Zitat von neolithos

Und was war mit rst.AbsolutePosition > 0 ?

Wenn ich die if-Abfrage so mache

Delphi-Quellcode:

procedure TForm1.cmdZurueckClick(Sender: TObject);
begin

  rst.MovePrevious;
  txtBezeichnung.Text := rst.Fields[1].Value;
  cmdVor.Enabled := True;

  if rst.AbsolutePosition > 0 then
  begin
    cmdZurueck.enabled = false;
  end;

end;

wird der cmdZurueck bei jedem klick deaktiviert, egal ob der letzte Datensatz erreicht ist oder nicht.

[Sharky]

Hai mirko2000,

hast Du schon einmal versucht die Abfrage im AfterScroll-Ereigniss zu machen?

Delphi-Quellcode:

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
  cmdZurueck.enabled := NOT (DataSet.BOF);
  cmdVor.enabled := NOT (DataSet.EOF);
end;

[Neuni]

ups, dann hab ich das falsch verstanden :oops:

:duck: sorry :duck: