如果做图片按钮？？？
图片按钮如何做？？整个按钮就是图片组成的
image控件可以做么？
或者，button可以设计它的颜色和4边框么？？
问题点数：20、回复次数：4Top
1 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-01 08:56:27 得分 0
添加ToolBar控件，右键增加新按钮，那个按钮可以从Image或者ImageList中取图片
就是工具栏按钮了Top
2 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-01 08:57:50 得分 0
至于Button，有很多三方控件的
去www.2ccc.com的三方控件里面去找Top
3 楼stonezhy（iAiMuMu）回复于 2006-03-01 09:02:55 得分 0
SpeedButton 倒是可以实现“整个按钮就是图片组成的”，不过效果不好，效果好的话还得用第三方控件Top
4 楼Rifhvk（Xscc.Com）回复于 2006-03-01 09:16:15 得分 0
我试了下，image控件是可以的。
但是有个问题就是，我用的是 bsnone窗体，再加 一段可拖动放大窗体的代码，然后image的鼠标事件就无效了
可拖动放大窗体的代码如下：
private
{ Private declarations }
procedure WMNCHitTest(var msg : TWMNCHitTest); message WM_NCHITTEST;
。。。。。。
procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
const v=6; //border width
var p:TPoint;
begin
Inherited;
p:=Point(msg.XPos,msg.YPos);
p:=ScreenToClient(p);
if PtInRect(Rect(0,0,v,v),p) then
Msg.Result:=HTTOPLEFT
else if PtInRect(Rect(Width-v,Height-v,Width,Height),p) then
Msg.Result:=HTBOTTOMRIGHT
else if PtInRect(Rect(Width-v,0,Width,v),p) then
Msg.Result:=HTTOPRIGHT
else if PtInRect(Rect(0,Height-v,v,Height),p) then
Msg.Result:=HTBOTTOMLEFT
else if PtInRect(Rect(v,0,Width-v,v),p) then
Msg.Result:=HTTOP
else if PtInRect(Rect(0,v,v,Height-v),p) then
Msg.Result:=HTLEFT
else if PtInRect(Rect(Width-v,v,Width,Height-v),p) then
Msg.Result:=HTRIGHT
else if PtInRect(Rect(v,Height-v,Width-v,Height),p) then
Msg.Result:=HTBOTTOM
else
Msg.Result:=HTCAPTION;
end;
那如何解决呢？？？鼠标事件扑捉冲突？Top
