发信人: powerjeep()
整理人: teleme(2000-12-06 19:30:19), 站内信件
|
【 在 zenz (真挚) 的大作中提到: 】
: 大家有没有用过FoxMail3.1Beta？
: 在收到邮件以后，会弹出一个半透明的窗体，有人知道怎样实现吗？
: 用什么API可以做到这样子？
: 只有Win2000才是这个样子（ME没有试过）。
: .......
重载一个FORM的 CREATEPARAMS的方法，
TForm1 = class(Tform)
.......
protector
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
ExStyle := ExStyle or WS_EX_TRANSPARENT;
end;
end;
--
…… 世界因你而美丽
世界有我更精彩 ……
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.130.6.8]
|
|