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

1 问题点数：20、回复次数：7Top

1 楼Michaelyfj（星星还是那颗星星）回复于 2002-04-29 18:04:54 得分 5

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

2 楼Dragon_ZJG（蝈蝈）回复于 2002-04-29 18:05:25 得分 5

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

3 楼Larky（睡仙）回复于 2002-04-29 18:06:30 得分 2

直接设置是不行的需要重载他的方法才行Top

4 楼ihihonline（潇潇->戒烟）回复于 2002-04-29 18:07:24 得分 2

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

5 楼pankane（半瓶水）回复于 2002-04-29 18:30:49 得分 1

也可以设为透明，你查一下我好像昨天才看到设为透明的代码Top

6 楼delphi008（正在努力修炼中．．．．）回复于 2002-05-01 22:13:22 得分 5

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;Top

7 楼delphi008（正在努力修炼中．．．．）回复于 2002-05-01 22:20:20 得分 0

有不足的地方，就是刷新时要加以处理才行。Top

相关问题

• memo
• mycanvas
• tcontrolcanvas
• tbitmap
• bmp
• 能设置背景图片
• brush
• 设为透明
• begin
• color

• 帖主：fhqkhnzh
• Michaelyfj
• Dragon_ZJG
• Larky
• ihihonline
• pankane
• delphi008

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载