Delphi Inputbox 输入时显示‘*’

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

const InputboxMessage = WM_USER + 200;   //定义消息

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
  procedure InputboxPassword(var MSG: TMessage); message InputBoxMessage;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle,InputboxMessage,0,0);             //发送消息
  inputbox('a','b','ssss')
end;

procedure TForm1.InputboxPassword(var MSG: TMessage);
var
  InputForm,Hedit: THandle;
begin
  InputForm:= Screen.Forms[0].Handle;
  if InputForm <> 0 then
  begin
  Hedit:= FindWindowEx(InputForm,0,'Tedit',nil);
  SendMessage(Hedit,EM_SETPASSWORDCHAR,Ord('*'),0);
end;

end;

end.

 

 

经过发消息的方式指定输入显示EM_SETPASSWORDCHAR.

 

要注意SendMessage和PostMessage的区别（如下是转载）：

在控制别的应用程序的时候，常常须要等待直到某个功能结束，例如:
打开一个窗口-->等待直到窗口结束
这个时候就能够用到SendMessage
若是在打开这个窗口后仍然须要对该窗口的界面进行设置，好比Edit的value等等,好比：
打开一个窗口-->控制窗口的control的属性
这个时候就须要PostMessage

使用一个钩子程序截获消息后,使用SendMessage把消息发送到主处理程序进行处理,可是在主处理程序尚未完成任务的时候,被设置钩子的程序进入了中止的状态,不能够处理
WM_PAINT,
WM_MOVE,
.......等的基本信息,
必需要等SendMessage发送出的消息完成后,才能继续运行,整个界面一片空白,把钩子消息设置成PostMessage的发送消息形式后,问题解决!
我查了MSDN对这两个API的定义,
PostMessage只是把消息放入队列，无论其余程序是否处理都返回，而后继续执行;
而SendMessage必须等待其余程序处理消息后才返回，继续执行。
PostMessage的返回值表示PostMessage函数执行是否正确;
而SendMessage的返回值表示其余程序处理消息后的返回值。 
使用这两个发送消息函数的最重要的是要看你的程序是否要对消息的滞后性关注否,PostMessage会形成消息的滞后性,而SendMessage则不会,但若是SendMessage消息处理失败,则会形成程序中止!