ActiveDelphi

[vortuas]

Usava o XE7 e funcionava muito bem como procedure anônima, mas desde que atualizei para o XE8 nenhum show modal mais funciona pro android!

Dá um erro de:
android.view.ViewRootImpl$CalledFromWrongThreadException: Only the original thread that created a view hierarchy can touch its views

Já procurei muito na internet e não achei uma solução pra isso, inclusive no stackoverflow achei um tópico falando sobre isso dizendo pra eu mudar a propriedade de BorderStyle para Single, mas não funcionou! Será que alguém pode me ajudar?

[strak2012]

Consegui ver a solução para isso no xe8 olhando este link aqui:
http://community.embarcadero.com/index.php/forum/programming/781-showmodal-on-osx-delphi-xe8

Me parece que o formulário deve ser declarado dentro do evento onde o showmodal vai ser disparado

exemplo:

[deodorojunior]

No lugar do showmodal usa só show
tipo assim:

if fmenuPedidos = nil then //verifica se já está na memoria ou nao
fmenuPedidos := TfmenuPedidos.Create(Application);

fmenuPedidos.Show; //exibe


_________________
.
.
.
Aplicativos no Google Play > https://play.google.com/store/search?q=deodorojunior

[xyber9]

[profase]

[profase]

Estou com esta dificuldade, aguardar o shomodal, pra android, fechar e somente
apos isso prosseguir com a execucao da aplicacao...

Nesta rotina, o showmodal nao aguarda o fechamento do form2:

procedure TForm1.Button1Click(Sender: TObject);
var
frm2: TForm2;
begin
frm2 := TForm2.Create(nil);
ShowMessage('Antes frm2.ShowModal...');
frm2.ShowModal( procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then ShowMessage('OK...');
// frm2.DisposeOf;
end);
//-continua processando a partir daqui mesmo com o frm2 aberto e em execucao.
// nao bloqueia ou aguarda o fechamento do frm2, como um showmodal VCL o faria.

//- se habilitar a linha abaixo, Trava a aplicacao aqui, pois fica inacessivel
// a manipulacao de frm2 pra mudar o valor de ModalResult e poder fecha-lo.
// entra em loop infinito....
//while ModalResult=mrNone do Application.ProcessMessages;

//-Mensagem exibida mesmo com o form2 aberto e em execucao.
ShowMessage('Depois frm2.ShowModal...');

// nao pode.
//Nescessito de um estado de espera ate fechar o form2 de onde
//leio variaveis ou componentes com informacoes pra serem preocessadas pela
//aplicacao
ShowMessage('Retorno: '+frm2.Edit1.Text);

frm2.DisposeOf; //ou no evento onclose, Action := TCloseAction.caFree;
end;

end;

*******************************
neste exemplo funciona perfeitamente, só que nao é um showmodal mas bem parecido:

Function mensagemConfirmacao(pMensagem : String):TModalResult;
var
MR : TModalResult;
begin
ShowMessage('Antes MessageDlg...');
MessageDlg(pMensagem,
System.UITypes.TMsgDlgType.mtConfirmation,
[System.UITypes.TMsgDlgBtn.mbYes,System.UITypes.TMsgDlgBtn.mbNo],
0,
procedure(const AResult: TModalResult)
begin
MR:=AResult;
end);

while MR=mrNone do Application.ProcessMessages;
Result:=MR;
ShowMessage('Apos MessageDlg...');
end;

como fazer para obter um estado de espera/aguardo ate o fechamento do formmodal?

/----------------------------/
Agradecido antecipadamente.
Paulo.