delphi編程生成非矩形窗口

四四方方的窗體也會變形，利用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事件處理程序放相同的代碼。