那为同志实现过一下功能，关于Button，给分！(100分)

繁

繁星一号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #1

我想让我的Button控件融入到窗口上，具有看不出来的有这个控件的效果，当鼠标按下时，
按钮好象陷下去了，如果Button不能实现，其他什么控件可以？谢谢

 

P

panjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #2

speedButton,属性flag ：= true;

 

N

netboyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #3

用toolbutton把toolbar.flat设为true,toolbutton.style设为tbscheck

 

M

mickeyzy1000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #4

类似于win Xp的效果，可以下载控件

 

C

chemer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #5

是不是像大富翁网页这种样式的？

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
panel1.bevelouter:=bvLowered;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
panel1.bevelouter:=bvnone;
end;

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #6

用SpeedButton

 

H

hgood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #7

SpeedButton看樣子你沒有用過﹗﹗﹗

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #8

SpeedButton.flat:=True;

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #9

?!@

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #10

[] 找其他第三方控件也可以。

 

火

火龙真人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #11

panjfd的方法可行
speedButton,属性flag ：= true
不过还得将透明属性改transparent:=true;
还可以用LABEL控件在MOUSEDOWN事件里改变LABEL背景色，让其比
窗体色彩暗一点， 在MOUSEUP事件里又恢复其原色，也行

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #12

如果要这样的话，可以通过以下方法实现：
先放一Tpanel控件，然后放几个TSpeedbutton控件。
将所有TSpeedbutton的Groupindex 设置为1 就行了，不知道是不是你需要的。

 

C

cnbobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #13

pcc_mmzl说的对，几个TSpeedbutton控件的Groupindex都要为1

 

繁

繁星一号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #14

谢谢大家的支持，不过好像都不能实现让鼠标单击后有下限的效果！

 

繁

繁星一号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #15

多人接受答案了。