Como criar dentro de um ShowMessage
ou ShowModal
uma mensagem onde o usuário teria que informar o código e senha, ao sair desse ShowMessage
eu consiga pegar essas informações (código e senha) para fazer algumas críticas?
-
o que você já tem pronto?– durtto12/12/2016 às 10:45
-
1@Tiago, poderia verificar a alguma das respostas solucionam o problema? Se Sim marcar como respondida?– David21/06/2018 às 13:19
2 Respostas
Você pode utilizar o InputQuery mesmo. Use o help para verificar como funciona com mais detalhes, inclusive com exemplos. Abaixo eu peguei o exemplo do help e adaptei para responder a sua pergunta. Segue o código:
procedure TForm1.Button1Click(Sender: TObject);
begin
InputQuery('Título da caixa de diálogo', ['Código', #1'Senha:'], ['', ''],
procedure(const AResult: TModalResult; const AValues: array of string)
var
str: string;
begin
if AResult = mrOk then
begin
ShowMessage('Meu código é: ' + AValues[0]);
ShowMessage('Minha senha é: ' + AValues[1]);
end;
end);
end;
Dê uma certa forma sim...
Seria por meio do InputQuery
ou InputBox
. É verdade que esses recursos só fornecem um campo para preenchimento, porém você pode olhar o código fonte dessas funções e montar a sua, mais ou menos como nesse link