怎样给richedit边框画成黑线?(在线)

Question

将richedit控件BorderStyle属性设为bsnone,使richedit控件变为平的，怎样在richedit控件边框上画上黑线作为边框?
请大家帮忙，谢谢.

Answer 1

procedure TForm1.FormPaint(Sender: TObject);
begin
 self.Canvas.Pen.Width := 10;
 self.Canvas.Rectangle(RichEdit1.Left, RichEdit1.Top,
  RichEdit1.Left + RichEdit1.Width, RichEdit1.Top + RichEdit1.Height);
end;

Answer 2

在RichEdit下面放一个比RichEdit稍大一点的黑色Penal就达到有黑色边框的效果了

Answer 3

这样不行,我要的是对richedit组件功能的扩展,直接调正几个属性就可以达到画边框的效果,原来richedit的边框是凹下去的，不想要这样的效果，想直接变成黑线.

Answer 4

Delphi帮你做好了：
设RichEdit的BevelKind为bkFlat
设BoderStyle为bsNone即可以达到如果要更灵活的，请请我的Blog;http://blog.csdn.net/linzhengqun/archive/2004/08/05/66101.aspx

Answer 5

linzhengqun(风。我回来了）
看了你的文章，对我帮助很大，按照你上边写的方法实现了我要的功能。非常感谢