delphi 控件圆角

最新推荐文章于 2022-11-22 10:49:27 发布

weixin_30808693

最新推荐文章于 2022-11-22 10:49:27 发布

阅读量225

点赞数

原文链接：http://www.cnblogs.com/tk-del/archive/2013/04/13/3018653.html

版权

procedure TForm1.RoundControl(Control: TWinControl; arc1, arc2 :Integer);
var
  R: TRect;
  Rgn: HRGN;
begin
  with Control do
  begin
    R := Control.ClientRect;
    Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, arc1, arc2);
    //Perform(EM_GETRECT, 0, LParam(@R));
    InflateRect(R, -5, -5);       //缩小R 5
    Perform(EM_SETRECTNP, 0, LParam(@R));  //消息等于EM_SETRECT,但是不会发生重绘事件
    SetWindowRgn(Control.Handle, Rgn, True);
    Invalidate;
    {-------------
    Perform(EM_SETRECT, 0, LParam(@R));
    ----------------------}
  end;
  //传入控件的name和两个弧度就可以设置控件的圆角效果
end;

转载于:https://www.cnblogs.com/tk-del/archive/2013/04/13/3018653.html