Fórum Inputbox muito simples... #183471
22/09/2003
0
olá pessoal, estou com uma duvida como testar o inputbox se foi precionado OK o Cancel e colocar em um if por ex.
if inputbox=ok the
...
else
.....
end
obrigado...
if inputbox=ok the
...
else
.....
end
obrigado...
Zacca
Curtir tópico
+ 0
Responder
Posts
22/09/2003
Mandachuva
olá pessoal, estou com uma duvida como testar o inputbox se foi precionado OK o Cancel e colocar em um if por ex.
if inputbox=ok the
...
else
.....
end
obrigado...
Pra verificar se o user pressionou Ok ou Cancel, é melhor usar o InputQuery, ex:
No OnClick de um Botão:
procedure TForm1.Button1Click(Sender: TObject);
Var TEXTO:STRING;
begin
IF InputQuery(´Titulo´,´O que?´,TEXTO)=TRUE THEN SHOWMESSAGE(´O User apertou OK´+#13+´Texto: ´+TEXTO)
ELSE SHOWMESSAGE(´O user apertou Cancel!´)
end;
Falow!
Responder
Gostei + 0
22/09/2003
Zacca
obrigado pela ajuda ... foi muito util... :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)