InPutBox
15/02/2003
0
como saber se foi precionado cancelar na funcao InPutBox?
Obrigado!!!
Obrigado!!!
Leao
Curtir tópico
+ 0
Responder
Posts
15/02/2003
Anonymous
Você não consegue testar o botão com InputBox. Para este caso utilize o InputQuery. Ex:
procedure TForm1.Button1Click(Sender: TObject);
var
NewString: string;
begin
NewString := ´Default String´;
if InputQuery(´Input Box´, ´Prompt´, NewString) then
ShowMessage(NewString);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
NewString: string;
begin
NewString := ´Default String´;
if InputQuery(´Input Box´, ´Prompt´, NewString) then
ShowMessage(NewString);
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
