3

我想在表单背景不可见的情况下绘制表单中的函数。创建了一个 TForm，TransparentColor 设置为 True，TransParentColorValue 设置为 clWhite。只需在上面放一个 TImage，在位图上绘制一个函数，将其分配给图像，效果很好。有一个问题。我不能再点击表格了。对表单标题和客户区的任何点击都会导致对底层应用程序的点击。这是由将 TransparentColor 设置为 True 引起的。我怎样才能防止这种“点击通过”？

更新 我尝试了 Sertac 的建议，我得到了一些显着的结果。我准备位图如下：

   Bitmap.Canvas.Brush.Color := clFuchsia;
   Bitmap.Canvas.FillRect (Rect (0, 0, Bitmap.Width, Bitmap.Height));

当 Color 设置为 clWhite 和 Forms TransparentColorValue 时，表单完全启用了点击。

都设置为 clBlack，窗体可以移动，但边框不能调整大小，系统按钮不起作用

两者都设置为 clFuchsia，它的行为与普通表单一样。好吧，它现在有效，但也许有人得到了解释？

4

1 回答 1

5

当使用某些特定颜色时，API 的行为似乎很奇怪。白色很明显，黑色的问题少一些。我试过黄色、灰色、纽扣脸、紫红色等。它们看起来很好。

如果有人想在不使用 Delphi 的“透明...”属性的情况下复制问题，这里有一个小片段：

procedure TForm1.Button1Click(Sender: TObject);
var
  Color: DWORD;
  DC: HDC;
begin
  Color := $00FFFFFF;
  SetWindowLong(Handle, GWL_EXSTYLE,
      GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED );
  SetLayeredWindowAttributes(Handle, Color, 255, LWA_COLORKEY);

  DC := GetWindowDC(Handle);
  SetDCBrushColor(DC, Color);
  FillRect(DC, Rect(10, 10, 100, 80), GetStockObject(DC_BRUSH));
  ReleaseDC(Handle, DC);
end;


注意：如果有人提供带有明确解释的答案，我很乐意删除此答案。

于 2012-04-21T14:39:08.583 回答