Primeiramente algumas melhorias de código para evitar dores de cabeça futuras:
- Se você usa firemonkey, isso daqui:
procedure Tformadhor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := TCloseAction.caFree;
formadhor:=nil;
formrel.somarel(usua.Id);
formrel.Show;
end;
Ficaria muito mais simples só de fazer assim:
procedure Tformadhor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
formrel.somarel(usua.Id);
formrel.Show;
Self.close;
end;
Se a Thread travar nesse momento, como o método já foi disparado, seu app simplesmente vai fechar sem erro algum. É melhor você não colocar código nenhum nesse evento e fazer essa chamada a outro form informando o ID através de algum outro método, por exemplo:
procedure geraRelatorio(pID: integer);
begin
if not Assigned(formrel) then
Application.CreateForm(Tformrel, formrel);
formrel.somarel(pID);
formrel.Show;
Self.Close;
end;
Como o Firemonkey é um framework orientado a Interfaces, a simples chamada ao método onClose ou onCloseQuery já ativa o destructor TObject.destroy
que seta a referência da interface pra ser destruída, porque ela saiu do escopo. Só não destroi se ela for atrelada a um form que é o form principal da aplicação.
- Cada método abaixo tem memory Leak:
procedure Tformadhor.salvareg;
var
reg:TRegrel;
db:TDM2;
begin
reg:=TRegrel.create('null',m,y,strtoint(edpub.Text),strtoint(editvid.Text),
edithora.Text,strtoint(editrev.Text),strtoint(editest.Text));
db:=TDM2.Create(nil);
if db.salvareg(usua,reg) then
Showmessage('Salvo com Sucesso!!');
db.DisposeOf;
end;
procedure Tformadhor.setusu(usu: TUsuario; nomemes: string; mes, ano: Integer);
begin
Labnome.Text:=usu.nomecomp;
labmes.Text:=nomemes;
usua:=TUsuario.create('clone','','','',0);
usua.clone(usu);
m:=mes;
y:=ano;
end;
Vamos por partes - (Jack ~1980):
procedure Tformadhor.salvareg;
var
reg: TRegrel;
db: TDM2;
begin
// Encontrei um descendente de JAVA aqui gente! Construtor amarrado é coisa de JAVAicano
reg := TRegrel.create('null', m, y, strtoint(edpub.Text), strtoint(editvid.Text),
edithora.Text, strtoint(editrev.Text), strtoint(editest.Text));
db := TDM2.Create(nil);
try
if db.salvareg(usua, reg) then
Showmessage('Salvo com Sucesso!!');
finally
db.DisposeOf;
reg.DisposeOf;
end;
end;
procedure Tformadhor.setusu(usu: TUsuario; nomemes: string; mes, ano: Integer);
begin
Labnome.Text := usu.nomecomp;
labmes.Text := nomemes;
// Mais uma ocorrência JAVAicana aqui
usua := TUsuario.create('clone','','','',0);
try
{ usua não tá definido aqui no escopo do método, se for uma propriedade da
classe, será eliminado juntamente do form, porém se for uma var você quem precisa
matar a instância criada em runtime }
//usua.clone(usu);
{ Porém, ao simplesmente passar o ponteiro de um objeto para outro, como é o
caso abaixo, você pode eliminar o objeto usua ou usu uma vez que os 2 representam
a mesma coisa, então ao eliminar um deles, você está liberando a memória pra
todas as instâncias onde aquele setor de memória foi usado }
usua := usu;
// faz alguma coisa com o usuario
m := mes;
y := ano;
finally
usua.DisposeOf;
end;
end;
- Agora que melhoramos o código daquilo que você compartilhou, de acordo com os passos que você seguiu, esse código aqui é onde ocasionaria o
hang
da sua aplicação:
procedure Tformadhor.FormShow(Sender: TObject);
begin
edpub.SetFocus;
end;
Porém somente setar foco pra um controle não causa problemas, teria que confirmar se o seu edit não possui algum evento onTyping
, onChange
, onEnter
, onExit
, onMouseMove
, onMouseDown
que são eventos que ocorrem simultaneamente na thread principal, dependendo do aparelho e do que você colocar nesses eventos, sua aplicação simplesmente aborta. Se houver algum evento nesses pontos, certifique-se de utilizar Threads para chamar esses métodos porque aí você consegue evitar possíveis abortos da aplicação.
Sempre evite realizar processamentos no mobile, procure deixar o processamento de qualquer coisa para o back-end, no mobile faça coisas simples, coisas leves, seu usuário agradece por isso!