几个关于文本程序的问题？

Question

1.用opendialog打开后，用
  richedit1.Font.Charset:=fontdialog1.Font.Charset;
  richedit1.Font.Size:=fontdialog1.Font.size;
  richedit1.Font.Color:=fontdialog1.Font.Color;
  richedit1.font.Pitch:=fontdialog1.font.Pitch;
  但是除了字体大小外，其他属性好像都改不了的？为什么啊？？
2.用了toolbar，可当用户缩小了窗口后，toolbar上面的按钮都会自动换行了？乍 么办啊？？
3.怎么实现richedit里的seltext的复制功能和粘贴功能啊？（要在鼠标处粘贴！）
无尽感激！

Answer 1

richedit1.SelAttributtes.XXX
toolbar.Wrapable:=False;
richedit1.CopyToClipboard
richedit1.PasteFromClipboard

Answer 2

还有当没有选择richedit里的文本时用richedit1.clearselction就不能清后面的字了，怎么做到啊？？？

Answer 3

要处理SelAttributtes的
使用CopyToClipboard和PasteFromClipboard方法没有Selection要清后面的字了？使用API的SengMessage知道当前位置，SelStart和SelLength设置选择区，最后ClearSelection

Answer 4

那么sengmessage的api函数怎么使用呢？？在哪里有定义啊！？

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelLength:=MaxInt;
RichEdit1.ClearSelection;
end;