delphi - 重置 tComboBox 的 PasswordChar 失败

Question

我的用户正在组合框中输入密码，因此我想显示 * 来代替用户键入的内容。到目前为止没有问题。下面显示的例程完美运行。但是，我还想让用户选择显示密码。当我使用 SetPasswordChar=false 调用下面的例程时，它会发送参数为零的 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;

Answer 1

我怀疑(并且刚刚通过 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 值，并在密码字符 * 之间来回切换并且每次双击组合框时都没有。