Prezado Newton,
Qual a versão do Delphi que está a usar? E, se estar a usar todos os componentes inclusive o TUCMassegeAplication e TUCHistorico?
É que depois que comecei a usar este dois componentes comecei a experimentar problemas que nunca tinha tido antes e uso o UCcontrol há muitos anos. Primeiro com D7 depois com XE e hoje com o Delphi XE7 (e a ultima versão do User control baixada do Show Delphi. Estou a usar o MDI, pelo vistos V. também “caFree”, mas não consigo replicar o que V. diz:
try
Aqui ele dá sempre um problema de MemoryLeak uma vezes e outras EAccessViolation quando faço o ucMycontrol.free; // Inclui essa linha
action:= cafree; // CHEGA: o caFree faz no MDI faz Application.Terminate
except
action:= cafree;
end;
No seu lugar passava para o
If
begin …
try…
caFree; // antes
except
…caFree; // depois é redundante, faz sempre
end;
// Passe para aqui porque evita a redundancia. Ou percebi mal?
// try e no except
caFree
end
else…