[gelöst] Scroll abbrechen

[Michl]

Hallo,

in einer Anwendung soll ein Feld geprüft werden, ob es vom Kontext her richtig ist (also die Daten, die der Nutzer gerade eingegeben hat), bevor auf einen neuen Datensatz zugegriffen werden kann.

Ich habe mir das mit BeforeScroll hingewurstelt und frage dort, ob alles passt, wenn ja, dann mache normal weiter, wenn nein, dann setze wieder alten Wert, bei Abbruch gehe zurück zum letzten bearbeiteten Datensatz.
Der "Abbruch" ist umständlich und konnte ich nur mit Hilfsvariablen und asynchronen Methoden lösen.

Das kommt mir arg hölzern vor. Wie macht man es denn eigentlich richtig?

Mein Testprojekt für SQLDB und SQLite anbei (SQLite dll nicht - müsste noch ins Projektverzeichnis kopiert werden).

[Sieben]

Ohne es mir bisher angesehen zu haben - warum nicht BeforePost...? Das hier zB:

Code: Alles auswählen

procedure TdmMain.qKategBeforePost(DataSet: TDataSet);
begin
  if qKategName.IsNull then
  begin
    ShowMessage('Will Namen haben...!');
    SysUtils.Abort;
  end;
end;

bleibt 'ohne weiteres' auf dem Record, belässt den DataSet im Edit-Modus und bricht auch jede weitere Aktion wie zB das Aufsuchen eines anderen Records durch VK_UP odgl ab.

[Michl]

Das Leben kann so einfach sein.

Super! Das funktioniert. Danke!!!