1,184
社区成员
发帖
与我相关
我的任务
分享请问有谁知道如何实现对任一个窗口进行透明化处理，谢谢!
现在新版本的QQ软件可以对它的窗口实现透明化处理，我很想知道这是如何实现的，有那位大侠能指点一二？多谢了！
...全文
请发表友善的回复…
发表回复
Joshua_Li 2004-10-30
- 打赏
- 举报
多谢两位的回复，按照你们说的方法已经可以了，谢谢！呵呵，，
whythinkwhy 2004-10-30
- 打赏
- 举报
透明FORM
将一个FORM变成透明的实质性手段就是拦截CMEraseBkgnd消息。
unit Utransform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)
private { Private declarations }
public { Public declarations }
PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
end;
var Form1: TForm1;
implementation
{$R *.DFM}
PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
BEGIN
brush.style:=bsClear;
Inherited;
END;
end.
将一个FORM变成透明的实质性手段就是拦截CMEraseBkgnd消息。
unit Utransform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)
private { Private declarations }
public { Public declarations }
PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
end;
var Form1: TForm1;
implementation
{$R *.DFM}
PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
BEGIN
brush.style:=bsClear;
Inherited;
END;
end.
上海老李 2004-10-30
- 打赏
- 举报
DELPHI中窗体有个属性,ALPHABLEND,它是指是否透明化,还有一个ALPHAVALUE的值是指透明度,0为全透明,255为不透明
项目介绍 MATLAB实现基于ELM-Bagging极限学习机（ELM）结合Bagging算法进行多变量时间序列预测（含模型描述及部分示例代码）专栏近期有大量优惠 还请多多点一下关注 加油 谢谢 你的