利用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事件处理程序放相同的代码。