问如何使用TEdits selStart和SelLength来选择文本？
EN

Stack Overflow用户

提问于 2013-09-10 08:12:20

回答 1查看 3.9K关注 0票数 2

我试图创建一个新项目，添加一个TEdit和一个TButton。将Edit1.Text设置为“这是测试消息”。并向按钮中添加一个事件：

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

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

问候罗兰

回答已采纳

发布于 2013-09-10 08:15:43

它可以像预期的那样工作，但是由于您的按钮通过单击它来窃取焦点，所以您将再次尝试将编辑框的焦点放回原处。通过聚焦编辑框，默认情况下，所有文本都会被选中。以下是一个简单的证明，如果编辑框在选择时具有焦点，则文本将被选中：

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

票数 9

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/18713733

复制

相似问题

问如何使用TEdits selStart和SelLength来选择文本？EN