Farbigen Rand um Form zeichnen

[Helmi]

Hallo,

ich hab auch mal eine Form mit gerundeten Ecken gebaut und ebenfalls auch mit einem farbigen Rand.

Ich hab das damals so gelöst:

Delphi-Quellcode:

procedure TMainForm.FormPaint(Sender: TObject);
const
  Pen_Width = 2;
  Round_C   = 20;
begin
  with MainForm.Canvas do
    begin
      // Rahmen um die Form aufbauen
      Pen.Width  := Pen_Width;
      Pen.Color  := clBlack;
      Pen.Style  := psInsideFrame;
      RoundRect(0, 0, Width - Pen_Width, Height - Pen_Width, Round_C, Round_C);
    end;
end;