如何在编辑框中显示标签,但在获得焦点时切换到密码输入模式？

Question

我使用的是Delphi 10和Windows 10.

以下代码使插入符号和选择在Edit1中消失.

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.PasswordChar := '*';
end;

焦点移动到另一个控件后,在onClick上运行良好.

我不能使用onClick,因为焦点按Tab键移动而Edit1应该以默认#0开头,因为它在焦点进入之前保存了'password'文本.

我怎么解决这个问题？

Answer 1

编辑控件按设计和预期工作.

• 如果您希望控件隐藏密码,则TEdit.PasswordChar在OI或创建时设置或...但不是每次进入控件时都设置
• 如果你想要一个提示,那么设置TEdit.TextHint将显示的属性,如果TEdit.Text为空并且控件没有聚焦