如何实现窗体的谈入谈出啊?

gaowen100 2003-09-29 05:40:22

要做一个窗体,使窗体在显示时从透明转变为不透明这一过程!!谁有经验望赐教啊!!
同时关闭窗体时也要使窗体慢慢变为透明,直至消失...

...全文

36 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

huangjuliang 2003-09-30

打赏
举报

显示时放在OnShow和OnCreate事件里都没有用

ljianq 2003-09-30

打赏
举报

使用AnimateWindow也可以，不过在OnShow和OnCreate事件中是不起作用的。

ljianq 2003-09-30

打赏
举报

在设计期，将AlphaBlendValue设为0、AlphaBlend设为true;

void __fastcall TForm1::FormActivate(TObject *Sender)
{
if (AlphaBlendValue==0) {
for (int i=0;i<255;i++) {
AlphaBlendValue++;
Sleep(10);
Update();
}
}
}

duduwolf 2003-09-30

打赏
举报

写在formshow中，
AnimateWindow(this->Handle,500,AW_HIDE|AW_SLIDE|AW_CENTER);

hy1080 2003-09-29

打赏
举报

好象有个属性可以控制

gaowen100 2003-09-29

打赏
举报

显示时不是在FormCreate()这里写的..
我想应该是在FormShow()这里写..不知道对不对.

tanbi52 2003-09-29

打赏
举报

那就没法了

huangjuliang 2003-09-29

打赏
举报

好像Formcreate时的效果不明显！
关闭时是效果不错！

annkie 2003-09-29

打赏
举报

Formcreate:
//AnimateWindow(MainForm->Handle,2000,AW_HIDE|AW_SLIDE|AW_HOR_POSITIVE|AW_VER_POSITIVE);

FormClose:
//AnimateWindow(MainForm->Handle,2000,AW_HIDE|AW_BLEND);

fatwave 2003-09-29