How to delete a line from a TRichEdit (Views: 709)
Problem/Question/Abstract: How do you delete a line from a TRichEdit at the current cursor point? Answer: uses richedit; {for EM_EXLINEFROMCHAR} var lineindex: Integer; { ... } with richedit1 do begin lineindex := perform(EM_EXLINEFROMCHAR, 0, SelStart); SelStart := perform(EM_LINEINDEX, lineindex, 0); SelLength := perform(EM_LINEINDEX, lineindex + 1, 0) - SelStart; SelText := ''; end; |