ActiveDelphi

[adrianomiller]

Boa noite alguém conseguiu criar tela de login para android, troca de tela como criamos para win ?

[tatianesilva]

[LandersonGomes]

Adriano bom dia.
Não sei se entendi bem o que você quer mas fiz como no código abaixo.

identifier na verdade é uma variável que é preenchida com o IMEI do aparelho, que capturei através de uma outra função.

Espero que ajude.

if identifier = '353221050619928' then
begin
frmOpcoes := TfrmOpcoes.Create(Application);
frmOpcoes.Show;
end
else
begin
ShowMessage('Aparelho não autorizado');
if InputBox('Necessidade de senha.', 'Informe a senha:', '') <> '347874633' then
MainActivity.finish
else
begin
frmOpcoes := TfrmOpcoes.Create(Application);
frmOpcoes.Show;
end;
end;
_________________
Landerson Gomes dos Santos
http://vivaitaocara.com.br/landersongomes

[gnandi83]