Question

我使用的是Delphi 10和Windows 10.

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

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

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

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

我该如何解决这个问题？

Answer 1

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