怎么做一个透明的BitBtn(100分)

  • 主题发起人 主题发起人 cachen1
  • 开始时间 开始时间
C

cachen1

Unregistered / Unconfirmed
GUEST, unregistred user!
一直想做一个透明的BitBtn,就是位图按纽了,不过它的背景和周围的图案融合。
和ToolButton一样的东西。
 
ToolButton那也不能叫透明按钮啊
 
你可以去www.csdn.net/dev/delphi找一个类似notron2000的控件
 
你看看TSpeedButton就行吧。自己去看看源代码,再改一改不就是啦。
 
程序员大本营2000荟萃版光盘中有好多个,不必做的
www.csdn.net/dev/delphi 中在控件中的按钮中找outlbtn.zip
 
procedure YourBitbtn.Paint;
begin
Canvas.Brush.Style:=bsClear;//透明效果
DrawShape;//绘制按扭外观;
end;
 
http://www.ue100.com/GRZY/cjsoftware/Downloads.htm上有一个
TransBtn:一个很老的控件,透明按钮,我很喜欢,有源代码.
这个比TransBtn好
 
TSpeedButton
改 Float;=true;
Caption;='xxx'
 
procedure TForm1.FormCreate(Sender: TObject);
begin
bitbtn1.Brush.style := bsclear;
bitbtn1.handleneeded;
setwindowlong(bitbtn1.handle, GWL_EXSTYLE, WS_EX_TRANSPARENT );
end;

 
用pdjbutton 控件,我这有
 
后退
顶部