Question

delphi的 panel点击后可以让它显示被陷下去的效果

Answer 1

Panel 控件显示为陷下去的效果，是设置 BevelInner 和 BevelOuter 两个属性为 bvLowered 即可，示例代码如下：

procedure TForm1.pnl1Click(Sender: TObject);
begin
  pnl1.BevelInner := bvLowered;
  pnl1.BevelOuter := bvLowered;
end;

Answer 2

在鼠标按下事件中：panel.BorderStyle:= bsSingle;
在鼠标弹起事件中：panel.BorderStyle:= bsNone;

追问

这样做没有我预计的效果，我想这样的效果：当点击第一个panel时，第一个panel陷进去，当点击第二个panel时，第一个弹出，第二个陷进去。

追答

你是想拿PANEL来模拟翻页那种吧。就在按下事件中把按下的那PANEL如上属性设为S那个，把其它几个PANEL设为N那个就行了。别附：如果你要求不高可以用WIN32->TPAGECONTROL这个控件，翻页直接有，哪果要好效果，用图片做更好。PANEL不太行

Answer 3

将所有 Panel 放入一个容器控件 GroupBox1，所有的 Panel 都共用一个 Click 事件。
procedure TForm1.Panel1Click(Sender: TObject);
var
i,ct: Integer;
begin
ct := GroupBox1.ControlCount;
for i := 0 to ct - 1 do begin
if GroupBox1.Controls[i] is TPanel then
TPanel(GroupBox1.Controls[i]).BevelOuter := bvRaised;
end;
TPanel(Sender).BevelOuter := bvLowered;
end;

Answer 4

为什么用panel呢，用delphi自带的按钮就有这样的效果