挑战，如何给RICHEDIT加上背景图 ( 积分: 100 )

RT

加还是比较容易,关键是在刷新的时候问题的处理比较麻烦

没有CANVAS属性，怎么加呢

这个太简单，用draw，但是文字会覆盖，但是重新刷新会闪烁，这也是控件自身的不足


procedure TForm1.Button1Click(Sender: TObject);
var
MyCanvas: TControlCanvas;
Begin
MyCanvas:=TControlCanvas.Create;
Mycanvas.control:=RichEdit1;//想在RichEdit1上作画
With Mycanvas do
Begin
//这里可以更改为你的作图程序
Draw(0,0,image1.Picture.Graphic);
Font.Color := clRed;
Brush.Style := bsClear;
TextOut(10,10,'在RichEdit中显示图片');
end;
End;

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
RichEdit1.Brush.Style := bsClear;
end;

你就不能用html来设计么？腾讯都用html来的，哎，动下脑袋好不好？

lovezyp的方法试过了，一打字图就没了，楼上的方法可能行吧，不过我不会HTML，不然也会考虑的。

插入简单,但是LoadformFile后,没有图片显示,最后没有办法,只有
调用write.exe来解决了!

我也用过HTML控件，不过不是很好，因为richedit的很多功能都没有得到发挥，而且HTML的行间距不好调整。不过只是作为有图片背景的编辑控件，还是不错。

请问怎么在RichEdit中插入HTML

關注一下。