memo控件能设置背景图片，或设置为透明吗？

Question

能设置背景图片
 Bmp : TBitmap;
begin
 bmp := TBitmap.Create;
 bmp.loadfromfile(...);
 Memo1.Canvas.Draw(0, 0, bitmap)
 bmp.free;
end;

Answer 1

直接继承他重新写类！然后再
procedure paint;
begin
  //先画图;
  inherited;
end;

Answer 2

是的，可以通过强制画图画上去，但是如果Memo变化时……，你试一试

Answer 3

function Tform1.memopain:boolean;   
var   
  MyCanvas: TControlCanvas;   
Begin   
  MyCanvas:=TControlCanvas.Create;   
  Mycanvas.control:=memo1;   
  With Mycanvas do   
  Begin   
    Brush.Color := clBtnFace;   
    MoveTo ( 33, 0 );   
    Brush.Color := clWhite;   
    LineTo ( 33, ClientHeight );   
  end;