Access Violation ao fechar MDI

Question

Pessoal, estou com o seguinte problema ao fechar um formul�rio MDI filho: Conforme o c�digo abaixo, eu coloquei um SpeedButton para fechar o form e nele coloquei um rotina chamadora do evento OnClose ...

Wbb · Answer

Apenas uma corre��o no c�digo:[code:1:5b42107730]procedure Tform1.SpeedButton3Click(Sender: TObject); Var Action : TCloseAction; begin    Action := caNone;    FormClose(nil,Action); end; procedure Tform1.FormClose(Sender: TObject;   var Action: TCloseAction); begin    freeandnil(form1); end;[/code:1:5b42107730]...

Yankleber · Answer

Ol�,Tente substituir o caNone por caFree....

Gbastos · Answer

� isso que o yankleber falou, pra fechar um MDIChild tem que ser com o caFree...
Outra coisa q eu aconselharia por experi�ncia pr�pria, seria ao inv�s de passar nil como parametro no Sender do formclose, passar o pr�prio sender do speedbuttonclick..

Wbb · Answer

Eu agrade�o a aten��o tanto do yankleber quanto do GBastos, por�m j� fiz todas as combina��es poss�veis com o Sender e com o Action e ainda assim ao fechar o form pelo bot�o, d� erro. Se fechar pelo �X� do form, tudo bem, funciona OK.

Na 1� e 2� formas, o form pode ser fechado pelo �X� sem problemas, mas d� erro atrav�s do bot�o. Na 3� forma tamb�m fecha pelo �X�, mas n�o faz nada se apertar o bot�o.

As formas como j� tentei foram:

1�

procedure Tform1.SpeedButton3Click(Sender: TObject);
Var Action : TCloseAction;
begin
   Action := caFree;
   FormClose(SpeedButton3,Action);
end;

procedure Tform1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   freeandnil(form1);
end;

2�

procedure Tform1.SpeedButton3Click(Sender: TObject);
Var Action : TCloseAction;
begin
   Action := caNone;
   FormClose(SpeedButton3,Action);
end;

procedure Tform1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   freeandnil(form1);
end;

3�

procedure Tform1.SpeedButton3Click(Sender: TObject);
Var Action : TCloseAction;
begin
   Action := caNone;
   FormClose(SpeedButton3,Action);
end;

procedure Tform1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action := caFree;
frmAddValores := Nil;
end;

At� tentei outras maneras, mas davam Stack Overflow ou erros semelhantes aos anteriores. T� F... !

De qualquer maneira obrigado pela ajuda. Vou continuar tentando.
wbb

Wbb · Answer

N�o precisa mais pessoal. J� foi resolvido pelo colega [b:eea5764793]BAMPavao [/b:eea5764793] que mais uma vez se dispoz a me ajudar, e foi resolvido de uma forma super simples que por sinal eu ainda n�o havia tentado.

procedure Tform1.SpeedButton3Click(Sender: TObject);
Var Action : TCloseAction;
begin
   Close;
end;

procedure Tform1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action := caFree;
   frmAddValores := Nil;
end;

Obrigado a todos.
wbb

Gbastos · Answer

Beleza, eu ia sugerir tirar o caFree do evento do SpeedButton e colocar no FormClose q � onde deve ficar, e o parametro do FormClose vc podia passar como Sender mesmo, algo como:

procedure Tform1.SpeedButton3Click(Sender: TObject); 
Var Action : TCloseAction; 
begin 
   FormClose(Sender, Action); 
end; 

procedure Tform1.FormClose(Sender: TObject; 
  var Action: TCloseAction); 
begin 
   Action := caFree; 
end;

Mas se j� resolveu, beleza..
Abra�o

Vinicius Simoes · Answer

Meus caros, para quem n�o conseguiu resolver ainda, vale dar uma olhada no evento OnDataChage dos DataSources do Form.
Estava com o mesmo problema e identifiquei que (n�o sei se � bug do Delphi7) existia um tratamento de Enable de alguns botoes no evento
de um dos meus DataSources. Mesmo depois de executar o "Action:=cafree" minha aplica��o estava acionando este evendo e causando
o erro em quest�o.
O que fiz foi setar o evento para "nil", antes de executrar a linha "Action:=cafree"
Exemplo:
DataSource.OnDataChange := nil;

At� mais.

F�rum Access Violation ao fechar MDI #196860