2

ユーザーがコンボ ボックスにパスワードを入力しているので、ユーザーが入力したものの代わりに表示したいと考えて*います。今のところ問題ありません。以下に示すルーチンは完全に機能します。ただし、ユーザーにパスワードを表示する選択肢も与えたいと思います。以下のルーチンを 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;
4

1 に答える 1

3

HWNDエディット コントロールが によって返されるものであると想定しているためだと思います (そして、XE2 の簡単なテスト アプリで確認したところです)。それ GetWindow(H, GW_CHILD);は安全な想定ではないと思います。:-)COMBOBOXコントロールは、実際には 3 つのHWND値で構成されています。1 つはコントロール全体、もう 1 つは編集部分、もう 1 つはドロップダウン リストです。

必要なハンドルを取得するより適切な方法は、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;

ComboBox1これは、のエディット コントロールのデフォルト値を使用し、コンボボックスをダブルクリックするたびComboBoxに、パスワード char となしの間で切り替えます。*

于 2012-06-26T14:27:52.753 に答える