我想改变richedit中第n行的字体属性 该怎么做？ 我除了知道该行的index 其它都不知道

Question

RichEdit1.SelAttributes.Assign(Tfont{你自己定义});

Answer 1

procedure TForm1.SetLineFont(LineIndex: Integer; AFont: TFont);
begin
  if LineIndex < 0 then
    LineIndex := 0
  else if LineIndex > RichEdit1.Lines.Count - 1 then
    LineIndex := RichEdit1.Lines.Count - 1;  RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, LineIndex, 0);
  RichEdit1.SelLength := Length(RichEdit1.Lines[LineIndex]);
  RichEdit1.SelAttributes.Color := AFont.Color;
  RichEdit1.SelAttributes.Name := AFont.Name;
  RichEdit1.SelAttributes.Style := AFont.Style;
  RichEdit1.SelLength := 0;
  RichEdit1.SetFocus;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  AFont: TFont;
begin
  AFont := TFont.Create;
  try
    AFont.Name := '宋体';
    AFont.Color := clRed;
    AFont.Style := AFont.Style + [fsBold];
    SetLineFont(0, AFont);
  finally
    AFont.Free;
  end;
end;