如何创建透明窗体?

最新推荐文章于 2023-05-30 15:02:30 发布

weixin_33971205

最新推荐文章于 2023-05-30 15:02:30 发布

阅读量115

点赞数

原文链接：http://www.cnblogs.com/myamanda/articles/1539389.html

版权

{ 在窗体中添加 button，然后加入以下代码：}

procedure TForm1.FormCreate(Sender: TObject);
var
  FullRgn, ClientRgn, ButtonRgn: THandle;
  Margin, X, Y: Integer;
begin
  Margin := (Width - ClientWidth) div 2;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  X := Margin;
  Y := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
  CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
  X := X + Button1.Left;
  Y := Y + Button1.Top;
  ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y + Button1.Height);
  CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR);
  SetWindowRgn(Handle, FullRgn, True);
end;

转载于:https://www.cnblogs.com/myamanda/articles/1539389.html