请问在DELPHI中如何给启动窗体加上阴影，像PHOTO中的那样 ( 积分: 100 )

Z

zhjuntom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #1

请问在DELPHI中如何给启动窗体加上阴影，像PHOTO中的那样

 

Z

zhjuntom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #2

请问在DELPHI中如何给启动窗体加上阴影，像PHOTO中的那样

 

畅

畅雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #3

我可以呀！！！[8D]

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #4

有兩個方法：
1、是做成一張圖片
2、打開兩個窗口前，先調整好。

 

畅

畅雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #5

那样的话就没有渐变透明效果了

 

Z

zhjuntom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #6

我的QQ是37417065 ，大家有好的办法可以联系我，谢谢了

 

Z

zhjuntom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #7

畅雨, 请指点一下

 

Z

zbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #8

在窗体上放一个带阴影的图片，将窗体设置为无边框。
虚假的透明效果，其实就是将窗口背后的东西画出来，不过对付启动窗口应当够用了。
GDI+可以实现真正的半透明阴影效果，不过目前大多数计算机还不支持。
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.Brush.Style := bsClear;
end;

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #9

XP下有效

type
TForm1 = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
const
CS_DROPSHADOW = $00020000;
begin
inherited;
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

 

D

dsl520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #10

请问各位大哥，我申请帐号都一个多月了，怎么还是没有被确认啊，谁能帮帮我啊。