panel控件是不是有个属性是按下去像button一样会下陷？
RT

[解决办法]
试一下:
procedure TForm1.Panel1Click(Sender: TObject);
begin
if Panel1.BevelOuter= bvRaised then
Panel1.BevelOuter:= bvLowered
else
Panel1.BevelOuter:=bvRaised;
end;

[解决办法]
好像没看见过。。
不过可以自己写么。。

Delphi(Pascal) code

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;