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

Question

RT

Answer 1

试一下:
procedure TForm1.Panel1Click(Sender: TObject);
begin
  if  Panel1.BevelOuter= bvRaised then
        Panel1.BevelOuter:= bvLowered
        else
            Panel1.BevelOuter:=bvRaised;
end;

Answer 2

好像没看见过。。
不过可以自己写么。。
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;