[mpdasa]

Как програмно переместить курсор к RichEdit1.Lines[5]?

Простой вопрос, но ответа в поисковиках не нашёл.

[v1s2222]

Попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := SendMessage(RichEdit1.Handle, EM_LINEINDEX, 4, 0); // Т.к. строки нумеруются с нуля, то y = 4
  SendMessage(RichEdit1.Handle, EM_SETSEL, i, i);
  RichEdit1.SetFocus;
end;

[NumLock]

Сообщение от v1s2222

// Т.к. строки нумеруются с нуля, то y = 4

у Lines[] тоже с 0

Код:

i := SendMessage(RichEdit1.Handle, EM_LINEINDEX, 5, 0);