【Delphi】圆角窗体

procedure TForm1.FormCreate(Sender: TObject);
var
    hr :thandle;
begin
    hr:=createroundrectrgn(1,1,width-2,height-2,5,5);
    setwindowrgn(handle,hr,true);
end;