No Delphi 10.2, tenho um Form A que possui uma TTask "Tarefa-A" que dispara uma StoredProcedure no banco Oracle com Firedac. A StoredProcedure atualiza uma tabela de resultados que será usada por um form B o qual tem um gráfico. Gostaria de chamar o Form B dentro de uma TTask "Tarefa-B", que chama o Forms B com o gráfico e poder voltar ao Form A, enquanto o gráfico fica atualizando no outro forms B ! Usei o seguinte comando para abrir o Form B dentro de uma TTask , MAS CONGELOU A APLICAÇÃO ! Agradeço a ajuda pessoal !
procedure TFormA.SpeedButtonChamaGrafico(Sender: TObject);
var
Tarefaproc, Tarefagrafico : iTask;
begin
// Chamada da StoredProcedure dentro da TTask ==> funciona corretamente !!
Tarefaproc := TTask.Create( procedure ()
begin
with FDStoredProc1 do
begin
Prepare;
Params[0].Value := StrToInt(EditCenario.Text);
Execproc;
end;
end);
Tarefaproc.Start;
// Logo em seguida, chamada do FormB dentro de outra TTASK ==> DÁ ERRO, congela a aplicação !!
Tarefagrafico := TTask.Create( procedure ()
begin
try
Application.CreateForm(TformB,FormB);
FormB.ShowModal;
finally
Freeandnil(formB);
end;
end);
Tarefagrafico.Start;
ShowModal
, observe que a tarefa não poderá se encerrar automaticamente, no caso ficaria parada noShowModal
desvinculada da Aplicação principal. Teste oShow
e nos diga o resultado.Modal
o problema é que aThread
esta desvinculando o "B" da aplicação principal.