Markieren einer einzelnen Zeile im RichEdit

[Stevie]

Hallo scxx,

bitteschön:

Delphi-Quellcode:

procedure TForm1.RichEditMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Line: Integer;
begin
  Line := SendMessage(RichEdit.Handle, EM_LINEFROMCHAR, RichEdit.SelStart, 0);
  RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, Line, 0);
  RichEdit.SelLength := Length(RichEdit.Lines[Line]);
end;

MfG
Stevie