如何解决Delphi 7 AlphaBlend 不适用于动态表单
我创建了动态表单作为下一个:
procedure TForm1.Button1Click(Sender: TObject);
var
Frm:TForm2;
begin
frm:=TForm2.Create(nil);
Frm.Left:=5;
Frm.Top:=5;
Frm.Parent:=Self;
Frm.OnCreate:=OncreateFrm;
Frm.Show;
end;
当我尝试更改 AlphaBlend 属性时,透明度不会改变..
procedure TForm1.OncreateFrm(Sender: TObject);
begin
AlphaBlend:=True;
AlphaBlendValue:=200;
end;
也覆盖构造函数,它给出了相同的结果..
谢谢。
解决方法
你的方法
Frm := TForm2.Create(nil);
Frm.Left := 5;
Frm.Top := 5;
Frm.Parent := Self;
Frm.OnCreate := OncreateFrm;
Frm.Show;
不可能工作,因为您在第 5 行设置了 OnCreate
处理程序,这是在第 1 行创建表单之后;因此,在创建表单时(第 1 行),它看到 OnCreate
是 nil
,因此什么也不做。您在第 5 行的说明无效。
这就像告诉你的朋友“请在你下班回家的路上买些牛奶”你的朋友已经下班回家了。
解决方案
1:在设计时设置属性
当然,您可以在设计时使用对象检查器来设置 AlphaBlend
的 AlphaBlendValue
和 TForm2
属性。但我怀疑你想动态地做,因为你问这个问题。
2:在 OnCreate
上使用 TForm2
处理程序
只需在表单编辑器中打开 TForm2
并双击它即可为其提供自己的 OnCreate
处理程序:
// in Unit2.pas
procedure TForm2.FormCreate(Sender: TObject);
begin
AlphaBlend := True;
AlphaBlendValue := 128;
end;
3:覆盖TForm2
的构造函数
// in Unit2.pas
constructor TForm2.Create(AOwner: TComponent);
begin
inherited;
AlphaBlend := True;
AlphaBlendValue := 128;
end;
4:创建对象时设置属性
// in Unit1.pas
procedure TForm1.Button1Click(Sender: TObject);
var
Frm: TForm2;
begin
Frm := TForm2.Create(nil);
Frm.Left := 5;
Frm.Top := 5;
Frm.AlphaBlend := True;
Frm.AlphaBlendValue := 128;
Frm.Show;
end;
与前三种方法不同,这种方法只影响 TForm2
的这个实例——它不会影响类本身。
所有这些方法都有效。
有一个“但是”
你的线路
Frm.Parent := Self
意味着你把这个表单变成一个控件而不是一个顶级窗口。
和 layered windows(VCL 的 AlphaBlend
功能所基于的 Win32 功能)仅支持作为 Windows 8 及更高版本中的子窗口。
因此,如果您使用的是 Windows 7 或更早版本,则在这种情况下不能使用 AlphaBlend
。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。