Fórum Habilitar e desabilitar botões #623631

  if Assigned(FrmFornecedores) then 
  begin
    with FrmFornecedores do
    begin
      btnNovo.Enabled           := (Sender as TDataSource).State in [dsBrowse];
      btnGravar.Enabled         := (Sender as TDataSource).State in [dsEdit, dsInsert];
      btnCancelar.Enabled       := btnGravar.Enabled;
      btnAlterar.Enabled        := (btnNovo.Enabled) and not ((Sender as TDataSource).DataSet.IsEmpty);
      btnExcluir.Enabled        := btnAlterar.Enabled;
      btnSair.Enabled           := btnNovo.Enabled;
    end;
  end;

  //Abre a tabela vazia
  if not FrmDm.qrSacados.Active then
  begin
    FrmDm.qrSacados.SQL.Text := SQLSacados;
    FrmDm.qrSacados.SQL.Add('WHERE SA.CODIGO = :COD');
    FrmDm.qrSacados.Open;
  end;

  Incluir := True;
  FrmDm.qrSacados.Append;
  FrmDm.qrSacadosSTATUS.AsString := 'ATIVO';
  edNome.SetFocus;

  FrmDm.qrSacados.Cancel;