Inputbox muito simples...
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
Curtidas 0
Respostas
Mandachuva
22/09/2003
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!
GOSTEI 0
Zacca
22/09/2003
obrigado pela ajuda ... foi muito util... :D
GOSTEI 0