var
dc:HDC;
c:TCanvas;
r:TRect;
bmp:TBitmap;
bmp:=TBitmap.Create;
c:=TCanvas.Create;
dc:=GetWindowDC(RichEdit1.Handle);
c.Handle:=dc;
r.Left:=0;
r.Top:=0;
r.Right:=RichEdit1.Width;
r.Bottom:=RichEdit1.Height;
bmp.Width:=RichEdit1.Width;
bmp.Height:=RichEdit1.Height;
bmp.Canvas.CopyRect(r,c,r);
ReleaseDC(RichEdit1.Handle,dc);
//bmp包含了RichEdit1的图像
//但是要注意,当前窗口要激活,如果执行这段代码的时候,richedit在其他窗口下面
那么复制到的是richedit上面的窗口的对应位置的图像