delphi - 如何使用TEdits selStart和SelLength选择文本？

我尝试使一个新项目添加一个TEdit和一个TButton。
将Edit1.Text设置为“这是一条测试消息”。
并将事件添加到按钮：

procedure TForm7.Button1Click(Sender: TObject);
begin
  Edit1.SelStart := 5;
  Edit1.SelLength := 5;
end;

当我单击按钮时，没有选择任何内容。有人可以解释为什么以及如何选择文本的某些部分吗？

问候
罗兰

最佳答案

它可以按预期工作，但是由于您的按钮通过单击而失去了焦点，因此您将尝试再次使该编辑框重新聚焦。通过聚焦编辑框，默认情况下将选中其所有文本。这是一个简单的证明，如果选择时编辑框具有焦点，则选择文本：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.SelStart := 5;
  Edit1.SelLength := 5;
end;

关于delphi - 如何使用TEdits selStart和SelLength选择文本？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/18713733/