是否有一种方法可以在Delphi中围绕其图片塑造一个按钮?>

问题描述 投票:1回答:1

我正在使用TMS软件中名为TAdvShapeButton的组件来围绕圆圈创建按钮。

enter image description here

此按钮的作用是为其添加图片;停机,过热,已禁用和正常状态。如果一个TAdvShapeButton在另一个TAdvShapeButton之上,它将保留PNG EXCEPT之外的透明度。

由于按钮是矩形,因此具有以下问题。

enter image description here

是否有办法从矩形更改此按钮的形状以匹配其加载的图片?

我正在猜测类似用于舍入表格的角的内容:

procedure TfCompass.FormCreate(Sender: TObject);
var
  region:HRGN;
begin
  region := CreateRoundRectRgn(ClientRect.left, ClientRect.top, ClientRect.right, ClientRect.bottom, 326, 326);
  SetWindowRgn(Handle, region, true);
end;

不确定如何进行。

非常感谢。

编辑1:

即使将TAdvShapeButtons放在窗体上,也会发生此问题。

enter image description here

我正在使用TMS软件中名为TAdvShapeButton的组件来围绕圆圈创建按钮。此按钮的作用是为添加图片;停机,过热,已禁用和正常状态。它保留了...

delphi button shapes
1个回答
0
投票

根据Sertac的建议,我找到了以下代码:http://delphi.cjcsoft.net/viewthread.php?tid=45051

© www.soinside.com 2019 - 2024. All rights reserved.