今天将以前的程序拿出来看了下，发现曾经使用的inputbox还是不能很好的完成自己的要求，到网上看了看，换成了inputquery。
新建一个Application，在界面上放一个label和button。
在button的click事件中写如下代码：（inputquery）
procedure TForm1.Button1Click(Sender: TObject)
原创
2009-01-22 13:45:57
1003阅读
使用 InputBox、InputQuery 的启发
看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得...
通过 InputBox 可获取用户输入的字符串:procedure TForm1.Button1Click(Sender: TObject);
var
str
原创
2021-04-30 23:10:39
372阅读
Delphi InputBox、InputQuery函数 两个函数都是弹框提示输入信息 function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; // 输出布尔值 function InputB
转载
2019-12-18 17:24:00
322阅读
2评论
1、标准写法（单个）： procedure TForm7.Button1Click(Sender: TObject); var strResult:string; begin if InputQuery('请输入密码：', '密码：', strResult) then begin caption:=
原创
2021-05-27 20:11:18
943阅读
使用 InputBox、InputQuery 的启发 看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得... 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str
转载
2019-09-04 08:58:00
143阅读
2评论
主要是觉得在单输入的情况下, 原来InputQuery输入框左边的文本太难看了...... http://www.cnblogs.com/hs-kill/p/4707744.html Read More
转载
2016-08-27 03:07:00
26阅读
2评论
：https://yq.aliyun.com/wenji/88428 通过修改VCL源码实现自定义输入对话框 在BCB中有两个函数可以实现输入对话框：InputBox和InputQuery，其实InputBox也是调用了InputQuery，这个函数有几个缺点： (1).输入对话框上的按钮是英文
转载
2017-10-20 10:37:00
118阅读
2评论
40.procedure TForm1.Button1Click(Sender: TObject); 41.var 42. newstring:string; 43.begin 44. inputQuery('输入查询条件','姓名为',new
原创
2023-08-31 10:53:23
91阅读
