diff --git a/packages/fcl-db/db.pas b/packages/fcl-db/db.pas index 4546700..719adc2 100644 --- a/packages/fcl-db/db.pas +++ b/packages/fcl-db/db.pas @@ -8231,6 +8231,7 @@ procedure TDatasource.SetEnabled(Value: Boolean); begin FEnabled:=Value; + ProcessEvent(deUpdateState,0); end; @@ -8283,7 +8284,7 @@ begin begin NeedDataChange:=(FState=dsInactive); FLastState:=FState; - If Assigned(Dataset) then + If Assigned(Dataset) and enabled then FState:=Dataset.State else FState:=dsInactive;