如何在Delphi 10中选择TEdit字段文本

Question

我有一个非常基本的问题，我无法弄清楚为什么。我想在字段获得焦点时选择TEdit的文本。在带有VCL的Delphi 7中，您可以在OnEnter事件中执行此操作：

TEdit(Sender).SelLength := Length(TEdit(Sender).Text)

现在，使用Delphi 10.2和FireMonkey，我已经尝试了几种不同的方式，但它不起作用。

例：

procedure TfPrincipal.Edit1Enter(Sender: TObject);
begin
   TEdit(Sender).SetFocus;
   TEdit(Sender).SelStart  := 0; // I already tried to change this value
   TEdit(Sender).SelLength := Length(TEdit(Sender).Text); // I already tried to change this value too
end;

Answer 1

您是否曾尝试在匿名线程中选择全部

TThread.CreateAnonymousThread(procedure ()
  begin
    TThread.Synchronize(nil, procedure ()
      begin
        Edit1.SelectAll();
      end);
  end).Start