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

[1]