请问如何实现类似于文本文件中的"格式"的功能

Question

也就是如何实现"自动换行","字体"着两个功能
我是初学者,不知道着类问题是不是很"菜",但还望得到大家的帮助,最好能说的具体一点,
非常感谢

Answer 1

自动换行，可以通过设置，Edit 或 Memo 或 RichEdit 的Scroll属性来实现（用垂直的Scroll和用水平的Scroll）字体可以设置它们的Font属性。

Answer 2

界面上放一个FontDialog，procedure TForm1.Button1Click(Sender: TObject);
beginFontDialog1.Execute;
RichEdit1.Font:= FontDialog1.Font;end;

Answer 3

TMemo的自动换行属性好像是不好用。
TRichEdit的自动换行属性是 WordWrap
这个写就可以
RichEdit1.WordWrap:=(Sender as TCheckBox).Checked;对于TRichEdit的字体，可以先在窗体上放一个TFontDialog
然后这样写：
IF Not FontDialog1.Execute Then Exit;
RichEdit1.Font:=FontDialog1.Font;