Спасибо, на вскидку это именно то что нужно. Ключевой момент: Рисуется дырявая звезда и дырка именно сквозная,а не прозрачная
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
ap: array [1..5] of TPoint;
r: hRGN;
begin
ap [1] := Point (Width div 2, 0);
ap [2] := Point (Width div 3 * 2, Height);
ap [3] := Point (0, Height div 3);
ap [4] := Point (Width, Height div 3);
ap [5] := Point (Width div 3, Height);
r := CreatePolygonRgn (ap, 5, ALTERNATE);
try
SetWindowRgn (Handle, r, TRUE);
finally
DeleteObject (r);
end;
end;