BackgroundColor von eigener Klasse weitergeben (ParentColor)

[HolgerX]

Versuch mal deinem Panel auch tatsächlich die entsprechende Form zu geben.

Beispiel für ein Rechteck mit abgerundeten Ecken:

Delphi-Quellcode:

procedure SetRegion(AControl : TWinControl;ARadius : integer = 10);
var
  rgn: HRGN;
begin
  rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
    0, // y-coordinate of the region's upper-left corner
    AControl.Width, // x-coordinate of the region's lower-right corner
    AControl.Height, // y-coordinate of the region's lower-right corner
    (ARadius * 2), // height of ellipse for rounded corners
    (ARadius * 2)); // width of ellipse for rounded corners
  SetWindowRgn(AControl.Handle, rgn, True);
end;

Für andere Formen stehen noch andere Rgn zur Verfügung:

CreateEllipticRgn
CreatePolyPolygonRgn
CreatePolygonRgn
CreateRectRgn
CreateRoundRectRgn