请指教：richedit中如何得到鼠标点击的这行文字呢？

Question

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;0D
  Shift: TShiftState; X, Y: Integer);
var I,Len: Integer;
begin
  Len := 0;
  for I := 0 to RichEdit1.CaretPos.Y-1 do
    Inc(Len,Length(RichEdit1.Lines[I])+2);
  RichEdit1.SelStart := Len;
  RichEdit1.SelLength := Length(RichEdit1.Lines[RichEdit1.CaretPos.Y]);
  //这行文字为：RichEdit1.Lines[RichEdit1.CaretPos.Y]
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

yzfish777() (  ) 信誉：100 :
"您话还没说完就挂了"？？—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————