如何使用TEdits selStart和SelLength选择Text？

Question

我尝试让一个新项目添加一个TEdit和一个TButton。 将Edit1.Text设置为'This is a test message'。 并在按钮上添加一个事件：

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

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

此致 罗兰

Answer 1

它按预期工作，但由于你的按钮通过点击它来窃取焦点，你然后再尝试将该编辑框重新聚焦。通过聚焦编辑框，默认情况下会选中所有文本。这是一个简单的证据，如果编辑框在选择时具有焦点，则选择文本：

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