Código Delphi [-] var RG : HRGN; begin RG := CreatePolygonRgn(PT,High(PT),ALTERNATE); //PT es un arreglo de TPoint end;
var RG : HRGN; begin RG := CreatePolygonRgn(PT,High(PT),ALTERNATE); //PT es un arreglo de TPoint end;