Fórum inputbox #209414

Tente o InputQuery, dá pra capturar e funciona do mesmo modo que o InputBox;


procedure TForm1.Button1Click(Sender: TObject);
var
Clicou:Boolean;
Palavra:String;
begin
Clicou := InputQuery(´Aviso´,´Digite uma palavra´,Palavra);
if Clicou then //Clicou no OK
ShowMessage(Palavra) //Mostra a palavra digitada no InputQuery
else
ShowMessage(´O usuário não clicou em OK. Ele clicou em Cancelar ou Fechou a janela´);
end;