怎样把panel 改成按钮？ ( 积分: 200 )

K

koalaone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #1

怎样把panel 改成按钮？有点击按钮的效果。

 

Z

zhengjp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #2

panel没有这效果！BitBtn控件试一下

 

K

koalaone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #3

BitBtn控件这个控件我知道的。
想用panel的已有属性加按钮的部分属性（如：按钮按下等效果）

 

B

bluesaga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #4

说下你想干什么，一定非得这样做吗？
不然，自己做个控件

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #5

自己处理Mouse事件就行了。
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 := bvRaised;
end;

 

K

koalaone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-16

• #6

搞定