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