我的用户正在组合框中输入密码,因此我想显示*
来代替用户键入的内容。到目前为止没有问题。下面显示的例程完美运行。但是,我还想让用户选择显示密码。当我使用 SetPasswordChar=false 调用下面的例程时,它会发送参数为 0 的EM_SETTPASSWORDCHAR。我希望组合框显示用户输入的文本。 但它仍然显示*
.知道我错过了什么吗?
//==============================================================================
// SetComboBoxPasswordChar
//------------------------------------------------------------------------------
// Set the Password Char for a tComboBox.
//
// This is done using by sending an EM_SETPASSWORDCHAR message to the edit box
// sub-control of the combo box.
//
//http://msdn.microsoft.com/en-us/library/windows/desktop/bb761653(v=vs.85).aspx
//
// wParam - The character to be displayed in place of the characters typed by
// the user. If this parameter is zero, the control removes the current password
// character and displays the characters typed by the user.
//==============================================================================
procedure SetComboBoxPasswordChar
( const nComboBox : tComboBox;
const nSetPasswordChar : boolean );
var
C : integer;
H : tHandle;
begin
// Get handle of the combo box
H := nComboBox . Handle;
// Get handle of the edit-box portion of the combo box
H := GetWindow ( H, GW_CHILD );
// If nSetPasswordChar is true,
// set password char to asterisk
// Otherwise, clear the password char
if nSetPasswordChar then
C := ord('*')
else
C := 0;
SendMessage ( H, EM_SETPASSWORDCHAR, C, 0 );
end;
怀疑(并且刚刚通过 XE2 中的快速测试应用程序确认)这是因为您只是假设编辑控件的HWND
是GetWindow(H, GW_CHILD);
返回的内容,我认为这不是一个安全的假设。COMBOBOX
控件实际上由三个HWND
值组成:一个用于整个控件,一个用于编辑部分,一个用于下拉列表。
获取所需句柄的更正确方法是使用 GetComboBoxInfo 并使用 COMBOBOXINFO 结构的hwndItem
成员:
var
CBI: TComboBoxInfo;
begin
// ..... Other code
CBI.cbSize := SizeOf(CBI);
H := nComboBox.Handle;
if GetComboBoxInfo(H, CBI) then
SendMessage(cbi.hwndItem, EM_SETPASSWORDCHAR, C, 0);
end;
为了快速、轻松地说明它的工作原理,请在新的空白窗体上放置一个TComboBox
,为 ComboBox1.OnDblClick
事件处理程序添加一个事件处理程序,然后将以下代码添加到窗体中:
const
PasswordChars: array[Boolean] of Integer = (0, Ord('*'));
var
Ch: Integer = 0;
UsePWdChar: Boolean = False;
procedure TForm1.ComboBox1DblClick(Sender: TObject);
var
Ch: Integer;
CBI: TComboBoxInfo;
begin
CBI.cbSize := SizeOf(CBI);
UsePwdChar := not UsePwdChar;
Ch := PasswordChars[UsePwdChar];
if GetComboBoxInfo(ComboBox1.Handle, CBI) then
SendMessage(cbi.hwndItem, EM_SETPASSWORDCHAR, Ch, 0)
end;
这将使用 ComboBox
的编辑控件中的默认ComboBox1
值,并在每次双击组合框时在密码字符 *
和无之间来回切换。