CreatePolygonRgn语句(50分)

D

dfwasdf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

在做变形窗体时我用到CreatePolygonRgn，请指出哪儿错，谢谢,
var
hRegion: THandle;
begin
hRegion := CreatePolygonRgn([Point(0, 0), Point(200, 0), Point(200, 150)],3,alternate);
SetWindowRgn (Handle, hRegion, True);
end;

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #2

酱紫可以的：

var
hRegion: THandle;
pt :array [0..2] of TPoint;
begin
pt[0]:=Point(0, 0);
pt[1]:= Point(200, 0);
pt[2]:= Point(200, 150);
hRegion := CreatePolygonRgn(pt,3,alternate);
SetWindowRgn (Handle, hRegion, True);

end;

 

D

dfwasdf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #3

正确，谢谢。

 

D

dfwasdf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-08

• #4

不好用动态数组，使用时注意。