帮帮我,把具体的步骤告诉我好吗?谢谢了
还有如何来做这个位图?
谢谢

解决方案 »

  1.   

    bitbtn kind属性 选择图片
    bitbtn 就这点和 button 不同
    ‘使其在按下和不按下时候加载的图片不一样’:可以在onclick 中写
    if bitbtn.kind:=bkno then bitbtn.kind:=bkyes   else  bitbtn.kind:=bkno
      

  2.   

    在ONMouseDown
    和OnMouseUp中写入你的代码就可以了
      

  3.   

    bitbtn kind属性 选择图片'如果被删除怎么办?'  没可能发生
      

  4.   

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      bitbtn1.Glyph.LoadFromFile('d:\a.bmp');
    end
      

  5.   

    笨方法,在窗体上放置两个image控件
    procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      bitbtn1.Glyph:=image1.Picture.Bitmap;
    end;procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
    bitbtn1.Glyph:=image2.Picture.Bitmap;
    end;