inputbox

Question

galera tem como agente capturar o botao cancelar do inputbox. O menssagebox sim pelo comando idok por exemplo. queria saber se � possivel no inputbox. se

Adriano Santos · Answer

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;