memo控件能修改行距吗？

Question

本人使用memo控件时，发现显示的汉字结果很拥挤，不美观，有没有办法可以向word一样更改行距呢？请多多指教！在线等待！

Answer 1

多谢jinjazz(近身剪（N-P攻略）) ，我用richedit试一下。

Answer 2

多谢whbo(王红波（决心找份工作）) ，改变字体我试过了，比如仿宋的效果要比宋体好些，但还是有不如意的地方，有没有其他办法呢。？

Answer 3

多谢d6f9b(patriot)，可是我的文本是从数据库中提取出来的，用DBMemo显示的，你说的怎么实现呢？

Answer 4

多谢cdsgajxlp(起名很难)和 jinjazz(近身剪（N-P攻略）) ，今天用richedit试过了，感觉显示好多了。

Answer 5

那就不要用dbmemo啊,数据库取出付给memo

Answer 6

uses
  RichEdit;procedure RE_SetLineSpacing(ARichEdit: TRichEdit; lineSpacing: Byte);
var
  pf2: ParaFormat2;
begin
  FillChar(pf2, SizeOf(pf2), 0);
  pf2.cbSize := SizeOf(PARAFORMAT2);
  pf2.dwMask := PFM_LINESPACING;
  pf2.bLineSpacingRule := lineSpacing;
  SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;//Example: Setlinespacing to 1:
procedure TForm1.Button1Click(Sender: TObject);
begin
  RE_SetLineSpacing(RichEdit1, 1);
end;

Answer 7

jinjazz(近身剪（N-P攻略）) ，可是Memo和DBMemo显示效果一样啊。

Answer 8

jinjazz(近身剪（N-P攻略）说的是把字段的内容取出后赋值给RichEdit，而不是Memo

Answer 9

多谢aiirii(ari-爱的眼睛)，可是我是初学者，也很笨，你能跟我说的详细些或者加上注释吗？

Answer 10

pilicat(delphi迷)，哦，明白了，其实那样的话可以用DBRichEdit。

Answer 11

多谢大家，问题已经解决，改用DBRichEdit就行了。