请问怎样在窗体上画一个矩形框，框线最好有象groupbox那样的凹凸感，但不要用groupbox

Question

请问怎样在窗体上画一个矩形框，框线最好有象groupbox那样的凹凸感，但不要用groupbox

Answer 1

这好办，  用Panel
BevelInner: bsRaised
BevelOuter: bsLowered
， 给分吧

Answer 2

假如不想用控件，就这样：procedure TForm1.Button1Click(Sender: TObject);
begin
  with Self.Canvas do
  begin
    Pen.Color := clGrayText;
    MoveTo(50, 50);
    LineTo(50, 100);
    LineTo(100, 100);
    LineTo(100, 50);
    LineTo(50, 50);
    Pen.Color := clWhite;
    MoveTo(51, 51);
    LineTo(51, 99);
    MoveTo(50, 101);
    LineTo(101, 101);
    LineTo(101, 50);
    MoveTo(99, 51);
    LineTo(51, 51);
  end
end;

Answer 3

其实象楼上几位所说，用Bevel就可以，设置Shape属性为bsFrame

Answer 4

还不给分procedure TForm1.Button1Click(Sender: TObject);
var
  rc: TRect;
begin
  rc := Rect(100, 100,  200, 200);
  Frame3D(Canvas, rc, clBtnShadow, clBtnHighlight, 1);
  Frame3D(Canvas, rc, clBtnFace, clBtnFace, 1);
  Frame3D(Canvas, rc, clBtnHighlight, clBtnShadow, 1);
end;

Answer 5

Panel
BevelInner: bsRaised
BevelOuter: bsLowered
再把color设置成白色就行了啊