报错框
报错代码
procedure TRelevancyGrid.actEditUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Sender as TAction).Visible and dsbRelevancy.DataSet.CanEdit and (RecordCount <> 0) and
ValidSecretLevel and (Access >= TDocAccessUtils.GetAccessKindValue(TDocAccessKind.akEdit));
end;