急！一个有关RichEdit的问题

Question

请问在RichEdit中怎样实现类似于word的页边距的效果

Answer 1

一般地，文字和编辑框的边界是靠都比较拢的，如果希望边界宽一点儿，可以使用下面的代码：procedure TForm1.Button1Click(Sender: TObject);constBORDER_WIDTH = 20;varRect: TRect;beginSendMessage(Memo1.Handle, EM_GETRECT, 0, Longint(@Rect));Rect.Top := BORDER_WIDTH;Rect.Left := BORDER_WIDTH;Rect.Right := Memo1.Width - BORDER_WIDTH;Rect.Bottom := Memo1.Height - BORDER_WIDTH;SendMessage(Memo1.Handle, EM_SETRECT, 0, Longint(@Rect));Memo1.Refresh;end;
 

Answer 2

zhlwyy(海龙)大哥，多谢
能不能再请教个问题（我一定会给您分的）：
   怎样在RichEdit中控制行间距和字间距。