Delphi中bitbtn如何用,使其在按下和不按下时候加载的图片不一样(一定帮我这个小鸟) 帮帮我,把具体的步骤告诉我好吗?谢谢了还有如何来做这个位图?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 bitbtn kind属性 选择图片bitbtn 就这点和 button 不同‘使其在按下和不按下时候加载的图片不一样’:可以在onclick 中写if bitbtn.kind:=bkno then bitbtn.kind:=bkyes else bitbtn.kind:=bkno 在ONMouseDown和OnMouseUp中写入你的代码就可以了 bitbtn kind属性 选择图片'如果被删除怎么办?' 没可能发生 procedure TForm1.BitBtn1Click(Sender: TObject);begin bitbtn1.Glyph.LoadFromFile('d:\a.bmp');end 笨方法,在窗体上放置两个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);beginbitbtn1.Glyph:=image2.Picture.Bitmap;end; delphi如何调用网页上的一个控件, 请问大家,'参数**没有默认值',这个错误怎么解决? 数据库连接设置的问题!新手的问题。 奇怪问题。。。 急:在sql 中,group by怎么用???? delphi中采用三层架构开发中的问题 虚拟方法问题 TreeView 的递归问题--在线 有谁知道怎样保存新东方英语学校的在线网课教学文件!(在线等) 能否将TStrings对象赋给一个Tcollection 谁帮我看下代玛 谢谢了先 100分 窗口控制问题:按下一个TForm对象的'最小','最大','X(关闭)',分别对应那个响应函数,如何使这些操作不产生效果?
bitbtn 就这点和 button 不同
‘使其在按下和不按下时候加载的图片不一样’:可以在onclick 中写
if bitbtn.kind:=bkno then bitbtn.kind:=bkyes else bitbtn.kind:=bkno
和OnMouseUp中写入你的代码就可以了
begin
bitbtn1.Glyph.LoadFromFile('d:\a.bmp');
end
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;