Mega Code Archive

 

Categories / Delphi / VCL

 

How to move the caret in TRichEdit to a specified position

Title: How to move the caret in TRichEdit to a specified position procedure RichEdit_MoveTo(RichEdit: TRichEdit; LineNumber, CharNumber: Word); begin RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber); end; procedure TForm1.Button1Click(Sender: TObject); begin RichEdit_MoveTo(RichEdit1,2,5); Application.ProcessMessages; RichEdit1.SetFocus; end;