Question

我正在尝试创建透明的子窗口。

procedure TForm1.BtnGoClick(Sender: TObject);
var
  bmp:TBitmap;
  BitmapPos: TPoint;
  BitmapSize: TSIZE;
  BlendFunction: _BLENDFUNCTION;
  exStyle: Cardinal;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('my32bitbitmap.bmp');
  exStyle := GetWindowLongA(Form2.Handle, GWL_EXSTYLE);
  if (exStyle and WS_EX_LAYERED = 0) then
    SetWindowLong(Form2.Handle, GWL_EXSTYLE, exStyle or WS_EX_LAYERED);
  BitmapPos := Point(0, 0);
  BitmapSize.cx := bmp.Width;
  BitmapSize.cy := bmp.Height;
  BlendFunction.BlendOp := AC_SRC_OVER;
  BlendFunction.BlendFlags := 0;
  BlendFunction.SourceConstantAlpha := 200;
  BlendFunction.AlphaFormat := AC_SRC_ALPHA;
  UpdateLayeredWindow(Form2.Handle, 0, nil, @BitmapSize, bmp.Canvas.Handle, @BitmapPos, 0, @BlendFunction, ULW_ALPHA);

  Windows.SetParent(Form2.Handle, Form1.Handle);
  bmp.Free;      
end;

它几乎可以工作：Form2在Form1中变成了漂亮的透明窗口。但看起来Form2不会随Form1移动。当我移动Form1时，Form2-Window会移动，但是在屏幕上我会看到它。当Form1被移动时，我无法点击Form2，点击进入，所以我知道窗口被移动了。

所以问题是如何在没有这些功能的情况下制作儿童透明窗口？（只是普通的窗口随着它的移动而移动）

Answer 1

每次移动或调整Form2的大小后，都需要调用UpdateLayeredWindow。或者你可以用TCustomTransparentControl后代替换它。

如何创建子分层alpha透明窗口？

1 个答案: