Delphi 中，InputQuery 函数的妙用

最新推荐文章于 2022-06-14 21:02:07 发布

原创最新推荐文章于 2022-06-14 21:02:07 发布 · 1.4k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #InputQuery #密码框

Delphi 同时被 2 个专栏收录

33 篇文章

订阅专栏

源代码编译

21 篇文章

订阅专栏

本文介绍了VBA中InputQuery函数的有趣应用，包括标准的单个输入提示、扩展的多个输入提示以及创建密码输入的方式。通过示例代码展示了如何利用InputQuery进行简单和复杂的用户交互，为日常编程带来便利。

一般我们简单的输入提示，用 InputQuery 函数，复杂的就自己建窗体了。
今天无意中看了一下 InputQuery 函数源码。发现比较有趣。

1、标准写法（单个）：

if InputQuery('请输入密码：', '密码：', strResult) then

2、扩展写法（多个）：

if InputQuery('请输入密码：', ['密码：', '重复密码：'], strResult) then

3、密码写法（多个）：

if InputQuery('请输入密码：', [Chr(9) + '密码：', Chr(9) + '重复密码：'], strResult) then

有点意思。有趣，有趣！

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

dbyoung

关注关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
打赏
打赏
打赏举报

举报

专栏目录

DELPHI 10.2 inquery输入密码为星号

11-04

DELPHI 10.2调用系统原配的 inquery输入密码，输入字符串默认为星号的技巧

简单说说Delphi 输入对话框 InputQuery

tanqth的专栏

02-17

1万+

在 FMX.Dialogs里，输入对话框有InputBox或InputQuery，InputBox里其实也是调用InputQuery实现的功能。 InputBox调用InputQuery的处理：实现一个简单的多内容的输入对话框： var IniFile: TIniFile; varstr: array of string; varstr[0] := '192.168.2.101'; varstr[1] := '211'; /...

参与评论您还未登录，请先登录后发表或查看评论

Delphi Inputbox,InputQuery用法

Microblue（严武）

05-16

9188

Delphi :InputQuery,InputBox用法及区别 function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; InputQuery返回值为是否点了OK 输入的字符串放在了变量Value中 function InputBox(const ACaption, APrompt, ADefault: string): string; inp

delphi控件属性大全-详解-简介

13东倍

01-23

7977

button 组件： CAPTION 属性：用于在按钮上显示文本内容 Cancel 属性：是否设置成默认的取消按钮，当设置为真的时候（true）按ESC触发改按钮的事件！ Default 属性：是否设置成默认的确认按钮，当设置为真的时候按ENTER键的时候触发事件 Hint 属性：设置当鼠标在按钮上短暂停留是显示的提示内容。 Showhint 属性：是否显

Delphi 中 InputQuery 实现密码输入

狼缘的博客

06-14

879

Delphi 中 InputQuery 实现密码输入

delphi 弹出输入框的InputQuery, InputQuery 函数用法

haijiange1的专栏

04-23

5232

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

Delphi 7 InputQuery函数详解与Edit组件教学

"InputQuery函数是Delphi编程中的一个关键功能，它用于在用户界面中获取用户的输入信息。这个函数的语法格式是：将用户输入存储到指定的变量中，通过一个对话框显示给用户，对话框包含标题、提示信息以及一个字符串...

Delphi教程：InputQuery函数与Edit组件详解

"InputQuery函数是Delphi编程中的一个函数，用于弹出对话框接收用户输入。这个函数在处理用户交互时非常有用，特别是在需要从用户那里获取特定信息的场景下。函数的基本用法是定义一个变量，然后调用InputQuery函数...

Delphi教程：InputQuery函数与编辑框组件解析

"InputQuery函数是Delphi编程中的一个函数，用于弹出对话框获取用户输入的文本信息。在Delphi的可视化开发环境中，InputQuery函数是实现用户交互的一个常用工具，它结合了对话框和编辑框（Edit组件）的功能。 ...

Delphi：InputQuery和InputBox的区别

hushiwei1993的专栏

11-10

746

InputQuery的返回值是boolean ；InputBox的返回值string function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; InputQuery返回值为是否点了OK 输入的字符串放在了变量Value中 function InputBox(cons

Delphi中Inputbox 和Inputquery 函数的使用

wozengcong的专栏

01-16

7210

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

XE版本 InputQuery 可以同时填多个输入值

weixin_34062469的博客

11-08

267

function InputQuery(const ACaption: string; const APrompts: array of string; var AValues: array of string; CloseQueryFunc: TInputCloseQueryFunc = nil): Boolean; overload; function InputQuery(const ...

設置InputQuery的字体

Compile failed

12-19

1260

調用前賦一個事件: AnsiString NewString = cfid; TNotifyEvent ActiveFun; ActiveFun = Screen->OnActiveFormChange; Screen->OnActiveFormChange = InputActive; if (InputQuery("提示", "輸入值", Ne

delphi InputBox输入密码用*代替，怎样让delphi的inputbox输入框显示密码代表符*

hnbcjzj的专栏

10-15

6907

定义 Mydialogs.pas unit Mydialogs; interface uses Windows, Graphics, Forms, StdCtrls, Consts, Dialogs, Controls,SysUtils,Types; function GetAveCharSize(Canvas: TCanvas): TPoint; function Inpu

使用Statement语句实现条件查询

w_1106的博客

11-03

3037

使用Statement语句实现条件查询题目是这样的：编写两个JSP页面：inputQuery.jsp和showGoods.jsp。用户可以再inputQuery.jsp页面输入查询语句，单机查询按钮后，在showGoods.jsp页面中显示符合查询条件的商品信息。需要编写一个Servlet类SelectGoodsServlet.java，类外需要使用实体类Goods。其实我看到这题就觉得很像课本上的例题：对整个数据库的查询操作。然后我就写了如下代码： inputQuery.jsp: <%@

EditeText输入字母自动转大写

ElevenJo 窝窝

05-06

805

实现 EditeText输入字母自动转为大写的两种方式：方法一通过editText.addTextChangedListener添加监听器进行修改 @Override public void onTextChanged(CharSequence s, int start, int before, int count) { // TODO Auto-generated method

Delphi 窗口置顶的方法