AfterScroll wird vorzeitig verlassen

[Sharky]

Zitat von Yadon:

...

Delphi-Quellcode:

procedure T.qAutorAfterScroll(DataSet: TDataSet);
begin
   with qryTitlebyAutor do
   begin
      Active := False;
      Parameters.Items[0].Value := qAutorAID.Value;
      Active := True;
   end;
end;

...

Hai Yadon,
hast Du auf deiner Form ein (DB)-Edit welches mit der DataSet qryTitlebyAutor verbunden ist und ein OnChange hat?
Wenn ja wird dieses natürlich ausgeführt sobald Du deine Tabelle auf Activ=False setzt. Dann ändert sich nämlich der Inhalt des Editfeldes (es wird leer).
Versuche doch einfach mal das OnChange vor dem Scrollen zu daktivieren und es danach wieder zu aktivieren.

Delphi-Quellcode:

procedure T.qAutorBeforScroll(DataSet: TDataSet);
begin
  DBEdit1.OnChange := nil;
End;

procedure T.qAutorAfterScroll(DataSet: TDataSet);
begin
  with qryTitlebyAutor do
  begin
    Active := False;
    Parameters.Items[0].Value := qAutorAID.Value;
    Active := True;
  end;
  DBEdit1.OnChange := MyOnChageEvent;
end;