怎么办？

我想在panel组件上面画图，但是怎么也不行，不知道各位大哥有什么方法？ 问题点数：22、回复次数：4Top

1 楼coldsea_2000（怒海风云）回复于 2001-11-29 16:49:29 得分 22

在panel上面放置一个paintbox控件，然后在paintbox的onpaint事件中写上如下代码：  
       
      begin  
          with   sender   as   Tpaintbox   do    
              with   canvas   do  
                    begin  
                        你的画图语句；//不需用canvas前缀了  
                    end；  
      endTop

2 楼poleax（）回复于 2001-11-29 16:54:03 得分 0

派生一个TPanel子类  
  type  
      TtPan   =   class(TPanel)  
  end;  
   
  (panel1   as   Ttpan).Canvas  
  Top

3 楼3fly（三飞）回复于 2001-11-29 17:14:55 得分 0

var  
      cvs:   tcanvas;  
  begin  
      cvs   :=   tcanvas.create;  
      try  
          cvs.handle   :=   getwindowdc(panel1.handle);  
          cvs.lineto(80,   80);//draw   your   picture  
      finally  
          cvs.free;  
      end;  
  Top

4 楼3fly（三飞）回复于 2001-11-29 17:16:06 得分 0

        cvs.handle   :=   getdc(panel1.handle);  
  也可以，知道getwindowdc()和getdc()的区别吗？Top

相关问题

• cvs
• ttpan
• paintbox
• panel
• tcanvas
• getwindowdc
• tpanel
• getdc
• canvas
• handle

• 帖主：skycloudy
• coldsea_2000

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