Estou criando um aplicativo para Android com Delphi 10 Tokyo e neste aplicativo tem uma determinada tela, chamada Tela1. Quando eu clico no botão abrir do meu menu na tela principal, chamando a tela Tela1, abre normalmente.
Se eu pressionar outro botão de menu com objetivo de abrir uma "Tela 2" (por exemplo), eu faço uma verificação se existe alguma outra tela aberta e forço seu fechamento antes de abrir a Tela 2.
Porém, se eu pressionar o botão de abertura de uma tela que já está aberta, mesmo forçando seu fechamento antes de tentar abri-la novamente, dará erro.
Rodando esse aplicativo no Windows bastou colocar um Application.ProcessMessages
conforme mostrado na rotina abaixo e resolveu o problema.
Mas no Android dá erro, pois fala que a tela já está aberta, mesmo forçando seu fechamento.
Como corrijo este problema?
Botão ABRIR TELA 1 (igual para a TELA 2)
procedure TfPrincipal.retMenu1Click(Sender: TObject);
begin
if not CloseForms(Sender) then Exit;
Application.CreateForm(TfTela1, fTela1);
end;
Evento OnClose da TELA 1 (igual para a TELA 2)
procedure TfTela1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := TCloseAction.caFree;
TForm(Sender) := nil;
end;
Rotina que força o fechamento de telas já abertas
function TfPrincipal.CloseForms(Sender: TObject): Boolean;
var i: Integer;
begin
Result := False;
try
// Este código não está garantindo o fechamento das telas no Android
for i := 0 to Application.ComponentCount -1 do
if Application.Components[i] is TForm then
if TForm(Application.Components[i]).ClassType <> TfPrincipal then begin
TForm(Application.Components[i]).Close;
Application.ProcessMessages;
end;
Result := True;
except on E: Exception do
ShowMessage('Erro fechando forms: ' + E.Message);
end;
end;
[RESPOSTA CORRETA POSTADA LOGO ABAIXO, DIFERENTE DO POST DO AUTOR DA OUTRA QUESTÃO]