要实现透明按钮，共需要三个控件-image、label、bevel。其中image控件是为了突出透明的效果而放置的（做为背景），label则是显示按键上的字。而bevel则是显示出一个立体框。（通过这个控件可以实现鼠标移到按钮上时显示出凸出的效果）下面我们就来看看具体的步骤吧。
1、 请先在delphi6.0中建一个工程文件
2、 请先选择一个图片，并注意其大小。然后将窗体调成与图片一样大小即可。
3、 然后在窗体上放置一个image控件，将其Align属性调为alclient，这样图片的大小便与窗体的大小一模一样可以做为背景了。然后选择picture属性并点击小按钮，在弹出的窗口中按下load键选择你所要做为背景的图片。
4、 接着在窗体上再放置一个label控件，合理设置按钮的文字内容及字体大小后。单击Transparent属性这样便将label设为了透明。
5、 最后在窗体上放置一个bevel控件。将shape属性设为bsBOX，然后将style属性设为bsRaise（这样为突然出效果），visible属性改为false(这样程序在运行时该控件不可见)。
6、 合理设置label与bevel控件的位置，使得bevel与label控件的位置及位置刚刚好一致，假如您觉得使用鼠标调整位置比较难。可以用Ctrl 箭头来微移控件，用Shift 箭头微调控件的大小。
下面我们就开始编程吧，请在代码窗口中设置下列事件及语句。
procedure TForm1.Label1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
Bevel1.visible:=true;
//使得bevel控件可视
label1.BringToFront;
//将label1控件置于最前方以保证onclick事件能执行
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
//在此加入点击按钮时需要执行的代码即可
end;
procedure TForm1.Image1MouseMove(Sender: TObject;
Shift: TShiftState; X,Y: Integer);
begin
Bevel1.visible:=false;
//当鼠标在image控件移动时，使bevel控件不可视按钮不凸起
end;
另外为了保证透明按钮看起来不是很单调您还可以在label控件附近放一个图标，这样可以让使用者看起来更加明了。
上一篇： 回调函数与Delphi的事件模型
下一篇： Delphi一点通:如何将源代码学好
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
