如何按下按钮后，另一个窗口弹出，但。。。(20分)

东

东方龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-25

• #1

新弹出的窗口必须在原窗口之内，最好是有点渐显的感觉和固定在原窗口的某个地方
要怎么做？

 

X

xyl999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-25

• #2

MDI

 

F

FreeBit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-25

• #3

新弹出的窗口必须在原窗口之内？
我不太清楚你的意思，是不是MDI形式的窗体

窗体渐显：
1、设置窗体的AlphaBlend属性为true
2、设置AlphaBlendValue属性为0
3、增加timer控件在要显示的窗体
4、在Timer的Timer事件中增加下列代码
if self.AlphaBlendValue+Int_alpha<=255 then
self.AlphaBlendValue:=self.AlphaBlendValue+Int_alpha
其中Int_alpha是事先定义的一个全局变量，用于初始化渐变增加值

 

F

FreeBit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-25

• #4

刚才给你发的代码不全
if self.AlphaBlendValue+Int_alpha<=255 then
self.AlphaBlendValue:=self.AlphaBlendValue+Int_alpha
else
begin
self.AlphaBlendValue:=255;
timer1.Enabled:=false;
end;

 

东

东方龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-25

• #5

新手，全局变量要怎么设置?

 

F

FreeBit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-25

• #6

在要显示的窗体中定义，不一定是全局变量。定义成私有的也可以
private
Int_alpha:Integer;