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;

procedure TForm1.FormPaint(Sender: TObject);
var
? DC: HDC;
? Pen: HPen;
? OldPen: HPen;
? OldBrush: HBrush;
begin
? DC := GetWindowDC(Handle);
? Pen := CreatePen(PS_SOLID, 1, clGray);
? OldPen := SelectObject(DC, Pen); //载入自定义的画笔,保存原画笔
? OldBrush := SelectObject(DC, GetStockObject(NULL_BRUSH));//载入空画刷,保存原画刷
? RoundRect(DC, 0, 0, Width-1, Height-1, 6, 6); //画边框
? SelectObject(DC,OldBrush);//载入原画刷
? SelectObject(DC,OldPen); // 载入原画笔
? DeleteObject(Pen);
? ReleaseDC(Handle, DC);
end;