生成非矩形窗口

width="84%">生成非矩形窗口

利用win32 API函数setwindowrgn可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子：

procedure TPortForm.FormCreate(Sender: TObject);

var hr :thandle;

begin

hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)

setwindowrgn(handle,hr,true); //设置园角窗口

end;

为了使该窗口更好，应在onResize事件处理程序放相同的代码。