在Button上画个图片,为什么一按鼠标就消失了,我应该截获什么事件么?

                            
如题,我在一个按钮Button1上画了个图片,没问题,但是为什么一按鼠标图片就消失了?   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  var  
      cas:Tcanvas;  
      bmp:Tbitmap;  
  begin  
      bmp:=Tbitmap.Create;  
      bmp.LoadFromFile('d:\0.bmp');  
      cas:=Tcanvas.Create;  
      cas.Handle   :=Getdc(Button1.Handle);  
      cas.StretchDraw(Button1.ClientRect,bmp);  
      cas.Textout(Button1.Width   div   2   -2,Button1.Height   div   2-2,Button1.Caption);  
      bmp.Free;  
      cas.Free;  
  end;  
  我也想研究研究BitBtn的代码,不过水平太低,有点不大懂。请问我应该重载什么函数,或者截获什么事件,以便重画图片么?多谢!

查看回复