Как использовать TEdits selStart и SelLength для выбора текста?

Question

Я пытаюсь сделать новый проект, добавить TEdit и TButton. Установите Edit1.Text на «Это тестовое сообщение». И добавить событие к кнопке:

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

Ничего не выбрано при нажатии на кнопку. Может кто-нибудь объяснить, почему и как это сделать, чтобы выбрать часть текста?

С уважением Roland

Answer 1

Он работает, как ожидалось, но так как ваша кнопка stealed фокус, нажав на него, вы затем пытаетесь сосредоточиться, что окно редактирования снова. И, сконцентрировав поле редактирования, весь его текст будет выбран по умолчанию. Вот простое доказательство, что текст выбран, если окно редактирования имеет фокус при выборе:

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