Bevel nur an den Ecken

[DeddyH]

TGraphicControl würde ich auch bevorzugen. Kleines Beispiel:

Delphi-Quellcode:

type
  TDings = class(TGraphicControl)
  protected
    procedure Paint; override;
  end;

...

procedure TDings.Paint;
const
  BEVELWIDTH = 20;
begin
  inherited;
  Canvas.Brush.Style := bsClear;
  Canvas.Pen.Width := 2;
  Canvas.MoveTo(0, BEVELWIDTH);
  Canvas.LineTo(0, 0);
  Canvas.LineTo(BEVELWIDTH, 0);
  Canvas.MoveTo(Width - BEVELWIDTH, 0);
  Canvas.LineTo(Width, 0);
  Canvas.LineTo(Width, BEVELWIDTH);
  Canvas.MoveTo(Width, Height - BEVELWIDTH);
  Canvas.LineTo(Width, Height);
  Canvas.LineTo(Width - BEVELWIDTH, Height);
  Canvas.MoveTo(BEVELWIDTH, Height);
  Canvas.LineTo(0, Height);
  Canvas.LineTo(0, Height - BEVELWIDTH);
end;

procedure TFormTest.FormCreate(Sender: TObject);
begin
  FDings := TDings.Create(self);
  FDings.Left := 20;
  FDings.Top := 20;
  FDings.Width := 100;
  FDings.Height := 100;
  FDings.Parent := self;
end;