如何给speedbutton背景着色,在线待 如何给speedbutton背景着色,在线待!!大侠们请教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在后面放一个等大小的label or shape 然后设置speedbutton的flat属性为true Flat控件也满好用flatspeedbutton ..........很爽的 ~ 用另类控件,去51delphi吧查查 TSpeedButton从TGraphicControl派生TGraphicControl是有个Canvas成员的,但TSpeedButton没继承那就派生个新类来继承Canvas~~TBtn = class(TSpeedButton) property Canvas;end;var Btn:TBtn;Btn.Canvas.Brush.Color:=clRed;Btn.Canvas.FillRect(a.ClientRect);画了个简单的红色背景~~~当然一个完整的图形按钮,还得自己画上文字,做出按下,起来后的效果~~~但不管是用Canvas操作,还是GDI直接绘图都是很容易实现的~~~ 漂亮的图形按钮当然直接画还是不行的,还得用PhotoShop做些PL的图像出来,怎么把图像画到按钮控件上呢?还是靠GDI,而Canvas封装了些东西,只要设置下Canvas.Handle,即传递HDC句柄给该类,即可调用GDI绘图~~~Canvas.StretchDrawCanvas.Draw或GDIBitBltStretchBlt然后就是根据消息绘制图像~~~看BitBtn和SpeedButton的代码,很好的例子~~~ RFID串口初始化有问题 [散分]极其常见的骗术,希望大家警惕!!! Delphi 关于文件查询 老是不对 寻求一个算法 fastreport的问题 我买了个新机子,装win2000复制文件时,不定时得死机,这是什么原因? 散分! 这样的SQl怎么写? 真的沒有看懂,哪位大俠幫一下,很簡單的! 很多人没帮别人解决问题用up,是什么意思?气愤,散分. 托盘 请大家讨论一下,做一个三层结构的ERP的单据模板应注意的问题?应从那几方面考虑?该怎么做? backspace在DELPHI中的ASC码值是#多少???
property Canvas;
end;var Btn:TBtn;Btn.Canvas.Brush.Color:=clRed;
Btn.Canvas.FillRect(a.ClientRect);画了个简单的红色背景~~~当然一个完整的图形按钮,还得自己画上文字,做出按下,起来后的效果~~~但不管是用Canvas操作,还是GDI直接绘图都是很容易实现的~~~
Canvas.StretchDraw
Canvas.Draw
或GDI
BitBlt
StretchBlt然后就是根据消息绘制图像~~~看BitBtn和SpeedButton的代码,很好的例子~~~