delphi编程生成非矩形窗口

delphi编程生成非矩形窗口2007-10-15四四方方的窗体也会变形，利用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事件处理程序放相同的代码。