Delphi 中 InputQuery 实现密码输入

修改用户口令时为了避免自己建立新的口令修改窗口，借用delphi中的标准输入对话框。

实现代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

const

InputBoxMessage = WM_USER + 200;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

InputString: string;

begin

PostMessage(Handle, InputBoxMessage, 0, 0);

if InputQuery('Input Box', 'Please Enter a Password', InputString ) then

ShowMessage(InputString);

end;

procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);

var

hInputForm, hEdit: HWND;

begin

hInputForm := Screen.Forms[0].Handle;

if (hInputForm <> 0) then

begin

hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);

SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);

end;

end.

这种方法实现的比较巧妙！重点是PostMessage(Handle, InputBoxMessage, 0, 0);

和对InputBoxMessage消息的处理！

Delphi 中 InputQuery 实现密码输入相关推荐

java 密码提交前判断_JSP中如何写密码输入和核实密码时正确与否的Java判断代码?...
jsp中判断两次输入的密码是否相同的方法是通过js实现的. 在两个文本框里添加onchange事件,在文本框的内容一发生变化时就触发该事件,而判断就写在这个事件之内就可以了. function che ...
webstorm中git密码输入错误，重置问题
webstorm中git密码输入错误,重置问题今天遇到了一个问题. 因为我比较习惯使用webstorm编辑器,特别喜欢直接用里面的git工具. 当从远程仓库fetch下来代码时,提示输入用户名密码. ...
怎么保存在界面输入的内容_还在担心忘记密码？使用这款软件轻松找回浏览器中保存的密码...
今天给大家介绍的是一个浏览器密码查看器---webbrowserpassview,这里分享的是简体中文版本的,适合于Windows端,这里测试用的操作系统是win10. 我想大家在使用浏览器的时候经常 ...
[心得]C语言中实现密码输入回显星号*
C语言为密码输入提供了一函数getpass(); #include <stdio.h> #include <unistd.h> int main() { char *passw ...
flutter显示图标_flutter中密码输入如何切换隐藏/显示？
可以通过TextFormField的obscureText属性控制密码输入的隐藏/显示,示例代码如下:@override void initState() { passwordVisible = fa ...
Delphi中的容器类(二)
TStrings类出于效率的考虑,Delphi并没有象C++和Java那样将字符串定义为类,因此TList本身不能直接存储字符串,而字符串列表又是使用非常广泛的,为此Borland提供了TStrin ...
Delphi中的容器类
Delphi中的容器类 Posted on 2008-11-15 11:30 YangHe 阅读(122) 评论(0) 编辑收藏从Delphi 5开始VCL中增加了一个新的Contnrs单元,单元 ...
Delphi中SendMessage使用说明
Delphi中SendMessage使用说明 SendMessage基础知识函数功能:该函数将指定的消息发送到一个或多个窗口.此函数为指定的窗口调用窗口程序,直到窗口程序处理完消息再返回.而函数Po ...
DELPHI 中 Window 消息大全使用详解
Window 消息大全使用详解导读: Delphi是Borland公司的一种面向对象的可视化软件开发工具. Delphi集中了Visual C++和Visual Basic两者的优点:容易上手.功能 ...

Delphi 中 InputQuery 实现密码输入

Delphi 中 InputQuery 实现密码输入

Delphi 中 InputQuery 实现密码输入相关推荐

最新文章

热门文章