inputbox和inputquery

今天将以前的程序拿出来看了下，发现曾经使用的inputbox还是不能很好的完成自己的要求，到网上看了看，换成了inputquery。

 

新建一个Application，在界面上放一个label和button。

在button的click事件中写如下代码：（inputquery）

procedure TForm1.Button1Click(Sender: TObject);
var
    NewStr :string;
begin
    NewStr := '编辑框中的内容，可以是数字等';
    Label1.Caption := NewStr    
    if InputQuery('标题', '请输入数', NewStr then
    Label1.Caption := 'The new string is ''' + NewStr + ''''; //NewStr显示的值是你修改后的值
end;

（inputbox）

procedure TForm1.Button1Click(Sender: TObject);
var
    InputStr: string;
begin
    InputStr:= InputBox('标题', '请输入数', '输入的数字');
end;

 

如果你要知道自己返回的是OK或Cancel，最好用Inputquery。

inputbox只返回你输入的值或者Default值。