有关memo的问提

Question

为什么不用Timage，
Memo可以放Image吗？

Answer 1

TMEMO 不能加 IMAGE
水平滚动条可以设置属性

Answer 2

直接用TScrollBox来加上滚动条不行吗？

Answer 3

虽然memo不能放image
但是memo中可以绘制图形
protected
  procedure wmpaint(var message:twmpaint);message wm_paint;procedure TMyMemo.wmpaint(var message:twmpaint);
var
  mcanvas:tcontrolcanvas;
  drawbounds:trect;
 begin
    inherited;
   mcanvas:=tcontrolcanvas.create;
   drawbounds:=clientrect;
   try
     mcanvas.control:=self;
     with mcanvas do
       begin
         brush.color:=clbtnface;
         framerect(drawbounds);
         inflaterect(drawbounds,-1,-1);
         framerect(drawbounds);
         fillrect(drawbounds);
         moveto(33.0);
         brush.color:=clwhite;
         lineto(33,clientheight);
         paintimages;
        end;
    finally
      mcanvas.free;
end;procedure TMyMemo.paintimages;
var
  mcanvas:tcontrolcanvas;
  drawbounds:trect;
  i,j:integer;
  orignalregion:hrgn;
  controldc:hdc;
 begin
  mcanvas:=tcontrolcanvas.create;
  drawbounds:=clientrect;
  try
   mcanvas.control:=self;
   controldc:=getdc(handle);
   mcanvas.draw(0,1,application.icon);
  finally
    mcanvas.free;
end;
end;
end;