Delphi 代码实现窗口透明+圆角边框

Posted 2020-10-04

 1 procedure TfrmRemoteData.DoInvisible;  //透明
 2 var
 3   control: TControl;
 4   index, margin, X, Y, ctlX, ctlY, i: Integer;
 5   fullRgn, clientRgn, ctlRgn: THandle;
 6 begin
 7   margin := (Width - ClientWidth) div 2;
 8   fullRgn := CreateRectRgn(0, 0, Width, Height); //创建总裁剪区域
 9   X := margin;
10   Y := Height - ClientHeight - margin;
11   clientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
12   CombineRgn(fullRgn, fullRgn, clientRgn, RGN_DIFF); //合并区域，RGN_DIFF差集
13 
14   for index := 0 to ControlCount - 1 do   //遍历控件
15   begin
16     control := Controls[index];
17     if (control is TWinControl) or (control is TGraphicControl) then
18       with control do
19       begin
20         if Visible then
21         begin
22           ctlX := X + Left;
23           ctlY := Y + Top;
24 //          ctlRgn := CreateRectRgn(CtlX, CtlY, CtlX + Width, CtlY + Height);
25           ctlRgn := CreateRoundRectRgn(ctlX, ctlY, ctlX+ Width, ctlY + Height, Height, Height);
26           CombineRgn(fullRgn, fullRgn, ctlRgn, RGN_OR);  //RGN_OR并集
27 
28         end;
29       end;
30   end;
31   SetWindowRgn(Handle, fullRgn, True);    //设置重绘窗口
32 end;

 说明：CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, arc1, arc2);