SpeedButton - Falhando

Delphi

06/10/2005

Galera, utilizo speedbuttons em meu sistema e agora começou a dar um erro estranho. Simplesmente o speedbutton está falhando como se fosse um botão sem nenhum tipo de comando.
O q pode ser, ele simplesmente não executa.


Demetrius

Demetrius

Curtidas 0

Respostas

Rjun

Rjun

06/10/2005

Isso aconteceu do nada? Verificou o código dos eventos?


GOSTEI 0
Demetrius

Demetrius

06/10/2005

Sim, parou d uma hora pra outra.

utilizo o seguinte código no botão:
begin
        If not Verifica_Campo_Obrigatorio then
begin
        Exit;
end
        else
begin
        If ECodigo_Barras2.Visible = True then
            begin
                  DMProdutos.CDSCadItensNotaCODIGO_BARRAS.Text := ECodigo_Barras2.Text;
                  DMProdutos.CDSCadItensNotaDESCRICAO.Text     := EDescricao2.Text;
                  ECodigo_Barras2.Visible                      := False;
                  EDescricao2.Visible                          := False;

                  ECodigo_Barras.Visible                       := True;
                  EDescricao.Visible                           := True;
            end;

        DMProdutos.CDSCadItensNotaISENTO_PIS_COFINS.Text := EIsento.Text;

        DMProdutos.CDSCadItensNota.Post;

        Limpa_Entrada(FCadEntradaProdutos);

        DMProdutos.CDSCadSituacaoTributaria.Close;
               

        ECodigo_Barras.Enabled             := False;
        EDescricao.Enabled                 := False;
        DBELote.Enabled                    := False;
        DBEDataValidade.Enabled            := False;
        EIsento.Enabled                    := False;
        DBLCBRefSituacaoTributaria.Enabled := False;
        DBEUnidade.Enabled                 := False;
        DBEQuantidade.Enabled              := False;
        DBEValorUnitario.Enabled           := False;
        DBEDesconto.Enabled                := False;
        DBEValorTotal.Enabled              := False;

        DBERSCusto.Enabled                 := False;
        DBEMargemLucro.Enabled             := False;
        DBEDescontoPreco.Enabled           := False;
        DBERSVenda.Enabled                 := False;
        DBELucroReal.Enabled               := False;

        SBNovaReferencia.Enabled           := False;
        SBNovo.Enabled                     := True;
        SBAlterar.Enabled                  := False;
        SBSalvar.Enabled                   := False;
        SBCancelar.Enabled                 := False;
        SBExcluir.Enabled                  := False;
end;
end;


Essa é a função de campo obrigatório:
begin
        If ECodigo_Barras2.Visible = True then
            begin
                  If ECodigo_Barras2.Text = ´´ then
                      begin
                            MessageDlg(´O campo "CÓDIGO BARRAS\REFERENCIA" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If ECodigo_Barras2.CanFocus then
                                  ECodigo_Barras2.SetFocus;
                                  Result := False;
                                  Exit;
                      end;

                  If EDescricao2.Text = ´´ then
                      begin
                            MessageDlg(´O campo "DESCRIÇÃO" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If EDescricao2.CanFocus then
                                  EDescricao2.SetFocus;
                                  Result := False;
                                  Exit;
                              end;
            end
        else
            begin
                  If ECodigo_Barras.Text = ´´ then
                      begin
                            MessageDlg(´O campo "CODIGO BARRAS\REFERENCIA" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If ECodigo_Barras.CanFocus then
                                  ECodigo_Barras.SetFocus;
                                  Result := False;
                                  Exit;
                      end;

                  If EDescricao.Text = ´´ then
                      begin
                            MessageDlg(´O campo "DESCRIÇÃO" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If EDescricao.CanFocus then
                                  EDescricao.SetFocus;
                                  Result := False;
                                  Exit;
                              end;
           end;
end;


Não achei erro, só se estou ficando + burro do q sou.


GOSTEI 0
Rjun

Rjun

06/10/2005

Você verificou se na janela de propriedades, o evento do botão está relacionado com seu código?


GOSTEI 0
Demetrius

Demetrius

06/10/2005

No explorer, pasta private a função VERIFICA_CAMPO_OBRIGATORIO está com a seta amarela e as setas das outras funções estão verdes. Será q siginifica q tem algum erro ali????

:?


GOSTEI 0
Demetrius

Demetrius

06/10/2005

sobe.....
:D


GOSTEI 0
Demetrius

Demetrius

06/10/2005

A função VERIFICA_CAMPO_OBRIGATORIO é uma função boleana, acontece q se eu retirá-la o botão funciona, se acrescentá-la novamente e volta a falhar e o mais estranho é q os outros formulários utilizam a mesma função e não dão problema. Alguém tem uma luz?????

:( :(


GOSTEI 0
POSTAR