delphi实现圆角窗体

最新推荐文章于 2019-09-02 15:23:00 发布

c_feers

最新推荐文章于 2019-09-02 15:23:00 发布

阅读量494

点赞数

分类专栏： Delphi 文章标签： Delphi

本文链接：https://blog.csdn.net/c_feers/article/details/83877360

版权

Delphi 专栏收录该内容

37 篇文章 1 订阅

订阅专栏

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;