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

Question

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

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;