TMEMO控件中的任一行得到焦点有没有什么事件发生？

Question

TMEMO控件中的任一行得到焦点有没有什么事件发生？我想让光标所在行显示不同颜色。多谢谢。

Answer 1

TMEMO不能实现光标所在行显示不同颜色，改用RichEdit吧！
它的OnSelectionChange可以达到让选择行改变颜色,字体和大小。
例如：
procedure TForSend.EditorSelectionChange(Sender: TObject);
begin
  with Editor.Paragraph do
  try
    FUpdating := True;
    BoldButton.Down := fsBold in Editor.SelAttributes.Style;
    ItalicButton.Down := fsItalic in Editor.SelAttributes.Style;
    UnderlineButton.Down := fsUnderline in Editor.SelAttributes.Style;
    ColorDialog1.Color := Editor.Color;
    FontSize.Text := IntToStr(Editor.SelAttributes.Size);
    ComboBox1.Text := Editor.SelAttributes.Name;
    case Ord(Alignment) of
      0: LeftAlign.Down := True;
      1: RightAlign.Down := True;
      2: CenterAlign.Down := True;
    end;  finally
    FUpdating := False;
  end;end;

Answer 2

TMEMO可以显示不同颜色？用RICHEDIT吧，可以在ONCLICK时间里处理