这样才可以:var
a: array of TPoint;
TrigonRgn, ResultRgn:HRGN;
begin
setlength(a,3);
a[0].x :=1;
a[0].y :=1;
a[1].x :=1;
a[1].y :=200;
a[2].x :=200;
a[2].y :=200; TrigonRgn := CreatePolygonRgn(a[0],3,ALTERNATE);
ResultRgn := CreateRectRgn(0, 0, Width, Height);
CombineRgn(ResultRgn, ResultRgn, TrigonRgn, RGN_AND);
SetWindowRgn(Handle, ResultRgn, True);
end;调用CreatePolygonRgn时使用a[0]而不是a
a: array of TPoint;
TrigonRgn, ResultRgn:HRGN;
begin
setlength(a,3);
a[0].x :=1;
a[0].y :=1;
a[1].x :=1;
a[1].y :=200;
a[2].x :=200;
a[2].y :=200; TrigonRgn := CreatePolygonRgn(a[0],3,ALTERNATE);
ResultRgn := CreateRectRgn(0, 0, Width, Height);
CombineRgn(ResultRgn, ResultRgn, TrigonRgn, RGN_AND);
SetWindowRgn(Handle, ResultRgn, True);
end;调用CreatePolygonRgn时使用a[0]而不是a
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货