Erro EAccessViolation... adress 004CC541... adress 0000038
ao compilar o programa acontece este tipo de erro. Estou desconfiado dessa parte do código que preve o estado da tabela para desabilitar alguns botoes. Alguem ve alguma coisa de errado.
procedure TDm.DataSource1StateChange(Sender: TObject);
begin
If Table1.State in DsEditModes then
Begin
frmcadcarga.btnsalvar.Enabled:= False;
frmcadcarga.BtnNovo.Enabled:= False;
frmcadcarga.BtnExcluir.Enabled:= False;
frmcadcarga.BtnSalvar.Enabled:= True;
End;
If Table1.State=DsBrowse then
Begin
frmcadcarga.btnsalvar.Enabled:= False;
frmcadcarga.BtnNovo.Enabled:= False;
frmcadcarga.BtnExcluir.Enabled:= False;
frmcadcarga.BtnSalvar.Enabled:= True;
End;
procedure TDm.DataSource1StateChange(Sender: TObject);
begin
If Table1.State in DsEditModes then
Begin
frmcadcarga.btnsalvar.Enabled:= False;
frmcadcarga.BtnNovo.Enabled:= False;
frmcadcarga.BtnExcluir.Enabled:= False;
frmcadcarga.BtnSalvar.Enabled:= True;
End;
If Table1.State=DsBrowse then
Begin
frmcadcarga.btnsalvar.Enabled:= False;
frmcadcarga.BtnNovo.Enabled:= False;
frmcadcarga.BtnExcluir.Enabled:= False;
frmcadcarga.BtnSalvar.Enabled:= True;
End;
Rafgraf
Curtidas 0
Respostas
Rafgraf
08/05/2008
fiz estas alterações e não adiantou:
procedure TDm.DataSource1StateChange(Sender: TObject);
begin
If Table1.State in DsEditModes then
Begin
frmcadcarga.btnsalvar.Enabled:= True;
frmcadcarga.BtnNovo.Enabled:= False;
frmcadcarga.BtnExcluir.Enabled:= False;
End;
If Table1.State=DsBrowse then
Begin
frmcadcarga.BtnNovo.Enabled:= True;
frmcadcarga.BtnExcluir.Enabled:= True;
frmcadcarga.BtnSalvar.Enabled:= False;
End;
procedure TDm.DataSource1StateChange(Sender: TObject);
begin
If Table1.State in DsEditModes then
Begin
frmcadcarga.btnsalvar.Enabled:= True;
frmcadcarga.BtnNovo.Enabled:= False;
frmcadcarga.BtnExcluir.Enabled:= False;
End;
If Table1.State=DsBrowse then
Begin
frmcadcarga.BtnNovo.Enabled:= True;
frmcadcarga.BtnExcluir.Enabled:= True;
frmcadcarga.BtnSalvar.Enabled:= False;
End;
GOSTEI 0
Mazzi
08/05/2008
Ola, por acaso vc jah depurou e a linha de ERRO pára na frmCarga?
POis pode ser como está sendo instanciado o form.
Vc esta acessando um objeto de frmCarga, e como esta sendo criado do frmCarga ?
POis pode ser como está sendo instanciado o form.
Vc esta acessando um objeto de frmCarga, e como esta sendo criado do frmCarga ?
GOSTEI 0
Rafgraf
08/05/2008
Eu tenho uma form chamada DM que ficam os acessos ao banco de dados, e a form frmCadCarga ficam os cadastros de novas entregas. Nessa form existem os botões que são habilitados ou não perante a funcao na form DM. a linha de depuração para encima da form DM, e se eu pressionar ctrl+f9 passa direto sem erros.
GOSTEI 0