automatisches post bei scroll verhindern

[sancho1980]

reden wir von der gleichen sache?

Zitat:

In TFIBDataSet

AfterCancel
AfterClose
AfterDelete
AfterEdit
AfterInsert
AfterOpen
AfterPost
AfterRefresh
AfterScroll
BeforeCancel
BeforeClose

BeforeDelete
BeforeEdit
BeforeEndUpdateTransaction
BeforeInsert
BeforeOpen
BeforePost
BeforeRefresh
BeforeScroll

Derived from TFIBCustomDataSet
AfterEndTransaction

AfterEndUpdateTransaction
AfterFetchRecord
AfterStartTransaction
AfterStartUpdateTransaction
BeforeEndTransaction

BeforeFetchRecord
BeforeStartTransaction
BeforeStartUpdateTransaction
DatabaseDisconnected
DatabaseDisconnecting

DatabaseFree
OnCompareFieldValues
OnDisableControls
OnEnableControls
OnEndScroll
OnFieldChange

OnFillClientBlob
OnGetRecordError
OnUpdateError
OnUpdateRecord
TransactionEnded
TransactionEnding

TransactionFree

Derived from TDataSet
OnCalcFields
OnDeleteError
OnEditError
OnFilterRecord
OnNewRecord
OnPostError

Aber die Idee mit dem Flag war gut. Was ich momentan gemacht habe, ist im BeforeAction des Navigators folgenden Code einzuführen:

Delphi-Quellcode:

procedure TWBWin.DBNavigator4BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  if Button = nbPost then
    TDataModule1(self.Owner).DicentriesMayPost := true;
end;

Das Posten sieht dann folgendermaßen aus:

Delphi-Quellcode:

procedure TDataModule1.DataSetDicEntriesBeforePost(DataSet: TDataSet);
begin
      if (not self.DicentriesMayPost) then
      begin 
        self.DataSetDicEntries.Cancel();
        abort();  
      end
      else 
        self.DicentriesMayPost := false;
end;

Der einzige Nachteil, den das hat, ist natürlich, dass wenn ich durch das Dataset scrolle während es im Edit-Mode ist, dann wird einfach nurgecancelt und dann abgebrochen (also der Pointer bleibt auf dem Eintrag); ich muss dann noch ein zweites Mal scrollen, damit's dann wirklich zum nächsten oder vorherigen Eintrag geht...