Bereich erstellen:
RHandle := CreateRoundRectRgn(50, 50, 50 + f, 70, 10, 10);
Kopie an Canvas übergeben:
SelectObject(pb.Canvas.Handle, RHandle);
Objekt wieder freigeben:
DeleteObject(RHandle);
Im 3. Post auf der Seite ist das Demo als Download (
Durchsichtiges Fenster)