zoukankan      html  css  js  c++  java
  • Delphi中Inputbox 和Inputquery 函数的使用

    原文转自:http://blog.csdn.net/zengcong2013/article/details/18355959

    inputbox的返回值是,你在输入框中输入的文字。而inputquery的返回值是,你是否点击了确定按钮。它的返回值是布尔型的。如果你在inputbox中一样也不输入,就点击取消的话,就会提示出错,而inputquery就不会。它们前面的两个参数都是一样的,分别是输入框的标题,和提示信息。例:
    if inputbox('加法题','7+5','')='12' then
        showmessage('yes')
        else
        showmessage('no')


    点取消和不等于该函数的第三个参数都返回false;


    var
    inputtext:string;
    if InputQuery('信息','请输入口令',inputtext)=true then
    begin

     end;

    通过 InputBox 可获取用户输入的字符串:


    procedure TForm1.Button1Click(Sender: TObject);
    var
      str: string;
    begin
      str := InputBox('输入窗口标题', '输入提示', '默认输入内容');
      ShowMessage(str); //显示输入的内容
    end;
    


    InputBox 是调用了 InputQuery, InputQuery 是通过一个 var 参数获取新字串:


    procedure TForm1.Button2Click(Sender: TObject);
    var
      str: string;
    begin
      InputQuery('输入窗口标题', '输入提示', str);
      ShowMessage(str); //显示输入的内容
    end;
    


    InputQuery 可返回一个 Boolean 值, 可判断用户是确认还是取消, 挺有用的:


    procedure TForm1.Button3Click(Sender: TObject);
    var
      str: string;
    begin
      str := '默认输入内容';
      if InputQuery('输入窗口标题', '输入提示', str) then
        ShowMessage(str); //如果点击了 ok 按钮将显示输入的内容
    end;
    d
  • 相关阅读:
    维护是关键 刻录机不读/刻盘故障实例排除
    压缩viewstate
    采用"软改"的方式激活Windows 7
    开启VAIO的VT
    比较通用的存储过程分页
    linux如何安装声卡驱动
    给Fedora11安装五笔
    导入CSV文件到数据库
    Ubuntu第一次登录用户名和密码错误不能登录
    CSS中Position、absolute、Relative、fixed、static的用法
  • 原文地址:https://www.cnblogs.com/yanyyx/p/6995313.html
Copyright © 2011-2022 走看看