当前位置:首页>开发>正文

delphi怎样为button加个图片 delphi 高分求助:怎样在image上绘图

2023-04-19 00:29:16 互联网 未知 开发

 delphi怎样为button加个图片 delphi 高分求助:怎样在image上绘图

delphi怎样为button加个图片

可以把TImage放在tspeedbutton或button上,然后在左边的控件栏里把Timage拉到按钮下,作为该按钮的子类,这样你就可以在按钮上画图片了。
为了响应按钮事件而不是TImage的Onclick事件,你要把TImage的hittext(好像是这个属性)设为True,这样点击图片,就响应了按钮的Onclick!

你还可以在label里放TImage,让其成为label的子类,这样看起来就好像一个带图片的按钮,为了有按钮的按下弹起效果,你可以设置鼠标按下Timage的left和top各加1个像素,弹起后再恢复,然后响应事件。

delphi 高分求助:怎样在image上绘图

主要往image.canvas上画即可。无闪烁:image.canvas.Brush.Style:=bsClear例: with aImage.Canvas do begin Brush.Style bsClear Brush.Color clRed FillRect(Rect(0, 0, Width, Height)) Pen.Color clWhite Pen.Width 1 Font.Name 宋体 Font.Size 10 Font.Style Font.Color clLime end方法:先再加一个image让它的picture为背景图片。用Canvas.draw方法先画上背景接下来再画小图标。结合moveto,lineto 等就可以了。

delphi 怎样画图,如箭头,线头什么的

画箭头和画直线同样对待.with canvas do beginmoveto(oldx,oldY)lineto(newx,newy)moveto(newx,newy)lineto(newx-2,newy-2)moveto(newx,newy)lineto(newx-2,newy-2)当然自己要判断直线方向.和画线次序(right to left etc)

在Delphi的Image控件上画移动的图片

一般的处理是重画下b原来在的位置,恢复a的原图,然后在重新画b。
不过我建议你还是先清空下画布,然后再画a,再画b吧,这样编程简单点。不然计算稍有问题就会出错的。
还有就是处理的画布时,可以先在内存中处理(在内存里建立一个画布,这样每次话得都是空画布,然后画a,画b,),处理好后直接把这个画在现有画布上就好了,也就不会多次画显示画布了(不会多次刷新,也就减少了需要处理的东西),同样也解决你的问题。

最新文章