高校问答南方公园完整破碎游侠:delphi7的问题各位救救
来源：百度文库 编辑：高校问答 时间：2024/04/28 17:16:39
问题有些多呢，我是想问一下这段代码如何解释呢，各位大虾帮忙哦，最好详细点的。
implementation
{$R *.dfm}
const
myrgn:array[1..8] of integer=(2,535,155,22,535,535,22,400);
var hr:hrgn;
procedure TForm1.FormCreate(Sender: TObject);
begin
hr:=createpolygonrgn(myrgn,4,alternate);
setwindowrgn(handle,hr,true);
end;
end.
implementation
{$R *.dfm}
const
myrgn:array[1..8] of integer=(2,535,155,22,535,535,22,400);
var hr:hrgn;
procedure TForm1.FormCreate(Sender: TObject);
begin
hr:=createpolygonrgn(myrgn,4,alternate);
setwindowrgn(handle,hr,true);
end;
end.
myrgn 是一个有8个元素的整型常量数组，在定义时赋了值。
hr 是一个区域类型的句柄。
CreatePolygonrgn函数是用来创建一个多边形区域，
SetWindowRgn是用来将窗口区域设置成为指定的区域。
这两个函数自己去查一下，网上有更全面的解释。。。
这段程序，可以在窗口产生时（FormCreate），改变窗口区域。
你写的这个，应该最后得到的窗口会是个八边形.