Erro DBG

[phfmiranda 0]

Boa noite pessoal,

 

Quando mando compilar meu projeto aparece o indicando que tem um erro no código abaixo, alguem sabe onde está este erro?

 

procedure TForm5.btnIncluirClick(Sender: TObject);
begin
with TForm5 do
begin
DBGCategoria.enabled := false;
btnIncluir.enabled := false;
btnEditar.enabled := false;
btnExcluir.enabled := false;
btnSair.enabled := false;
btnOk.enabled := false;
DBEdit1.setfocus;
DMPrincipal.IBDataSetCategorias.Append;
end;
end;

 

 

valeu.

[bdexterholland 0]

por favor, analise o log do delphi porque ele informa em qual linha está o erro. Se esta informação não for suficiente, use o debug do delphi. Da forma como a qestão foi apresentada, não parece conter erros.

[phfmiranda 0]

Boa noite Caro Colega,

 

Os erros que encontrei no delphi foram os seguintes:

 

[Error] categorias.pas(52): Instance variable 'DBGCategoria' inaccessible here

[Error] categorias.pas(52): Missing operator or semicolon

[Error] categorias.pas(53): Instance variable 'btnIncluir' inaccessible here

[Error] categorias.pas(53): Missing operator or semicolon

[Error] categorias.pas(54): Instance variable 'btnEditar' inaccessible here

[Error] categorias.pas(54): Missing operator or semicolon

[Error] categorias.pas(55): Instance variable 'btnExcluir' inaccessible here

[Error] categorias.pas(55): Missing operator or semicolon

[Error] categorias.pas(56): Instance variable 'btnSair' inaccessible here

[Error] categorias.pas(56): Missing operator or semicolon

[Error] categorias.pas(57): Instance variable 'btnOk' inaccessible here

[Error] categorias.pas(57): Missing operator or semicolon

[Error] categorias.pas(58): Instance variable 'DBEdit1' inaccessible here

[Fatal Error] Unit1.pas(114): Could not compile used unit 'categorias.pas'

 

Como posso resolver este problemão?

 

 

Obrigado.

[bdexterholland 0]

acho que encontrei o erro:

procedure TForm5.btnIncluirClick(Sender: TObject);
begin
 with Form5 do  //<-- observe o que foi referenciado, você não pode manipular propriedades da classe e sim do objeto
   begin
     DBGCategoria.enabled := false;
     btnIncluir.enabled := false;
     btnEditar.enabled := false;
     btnExcluir.enabled := false;
     btnSair.enabled := false;
     btnOk.enabled := false;
     DBEdit1.setfocus;
     DMPrincipal.IBDataSetCategorias.Append;
   end;
end;

[phfmiranda 0]

Obrigado pela ajuda.

 

Mas como posso chamar este objeto então?

 

Valeu.

[bdexterholland 0]

Do jeito que eu postei não funcionou? Se não, tente assim:

procedure TForm5.btnIncluirClick(Sender: TObject);
begin
 with (Sender AS TForm5) do  //<-- observe o que foi referenciado, você não pode manipular propriedades da classe e sim do objeto
   begin
     DBGCategoria.enabled := false;
     btnIncluir.enabled := false;
     btnEditar.enabled := false;
     btnExcluir.enabled := false;
     btnSair.enabled := false;
     btnOk.enabled := false;
     DBEdit1.setfocus;
     DMPrincipal.IBDataSetCategorias.Append;
   end;
end;

 

Ou ainda:

procedure TForm5.btnIncluirClick(Sender: TObject);
begin
 with Self do  //<-- observe o que foi referenciado, você não pode manipular propriedades da classe e sim do objeto
   begin
     DBGCategoria.enabled := false;
     btnIncluir.enabled := false;
     btnEditar.enabled := false;
     btnExcluir.enabled := false;
     btnSair.enabled := false;
     btnOk.enabled := false;
     DBEdit1.setfocus;
     DMPrincipal.IBDataSetCategorias.Append;
   end;
end;