Erro usando o Screen.OnActiveControl

Question

Estou a usar o seguinte c�digo para quando entro numa Edit mude a cor de fundo, est� a funcionar bem mas quando fecho o Form d� me erro�Project Aplicacao.exe Raise exception class EaccessViolation wit...

Rjun · Answer

� que voc� esta tentando acessar um controle q ja foi destruido pelo Form. Coloque essa linha no evento OnClose do Form.

Screen.OnActiveControlChange := nil;

;

Massuda · Answer

Voc� precisa testar se o ActiveControl � diferente de nil porque um form inativo tem ActiveControl = nil. Al�m disso, � recomend�vel que voc� desinstale o tratador do evento no OnDestroy do seu form j� que tudo dentro do form est� sendo destru�do.

procedure TFrMenus.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := controlChange;
end;

procedure TFrMenus.FormDestroy(Sender: TObject);
begin
Screen.OnActiveControlChange := nil;
end;

procedure TFrMenus.controlChange(sender : TObject);
begin
  // n�o sei bem onde o teste deveria ser feito...
 if Assigned(ActiveControl) then begin

   if Assigned(campoAnt) then
    campoAnt.Color := clWindow;
   if ActiveControl is TEdit then
    begin
     TEdit(ActiveControl).Color := clBackground; //clInfoBk;
     campoAnt := TEdit(ActiveControl);
    end
   else
    campoAnt := nil;

 end;
end;

Porty · Answer

[quote:a5d94a6d1a=�Rjun�]� que voc� esta tentando acessar um controle q ja foi destruido pelo Form. Coloque essa linha no evento OnClose do Form.[code:1:a5d94a6d1a]Screen.OnActiveControlChange := nil;[/code:1:a5d94a6d1a];[/quote:a5d94a6d1a]Coloquei esse c�digo no OnDestroy � j� funciona sem erros.Se eu quiser usar esse c�digo para todas a aplica��o com faria? Pois estar a repetir este c�digo em todos os forms � um pouco chato, claro que podia usar a heran�a mas como j� tenho muitos forms j� criados n�o queria estar a mexer....

Porty · Answer

[quote:13b03239b0=�porty�][quote:13b03239b0=�Rjun�]� que voc� esta tentando acessar um controle q ja foi destruido pelo Form. Coloque essa linha no evento OnClose do Form.[code:1:13b03239b0]Screen.OnActiveControlChange := nil;[/code:1:13b03239b0];[/quote:13b03239b0]Coloquei esse c�digo no OnDestroy � j� funciona sem erros.Se eu quiser usar esse c�digo para todas a aplica��o com faria? Pois estar a repetir este c�digo em todos os forms � um pouco chato, claro que podia usar a heran�a mas como j� tenho muitos forms j� criados n�o queria estar a mexer.[/quote:13b03239b0]...

Mysys · Answer

e ai gurizada tudo na santa ..??seguinte esse codigo funciona perfeitamente em forms normais mais eu uso MDI e ele nao funciona ..[b:92b8a58d51]alguem sabe de algum codigo prar mudar a cor do edit,DBEdit focado para form MDI..???[/b:92b8a58d51]...

F�rum Erro usando o Screen.OnActiveControl #293351