制作动态效果的Form
2006-08-28 14:36
267 查看
procedure TForm3.FormShow(Sender: TObject);
begin
AnimateWindow(handle,250,AW_Center);
// AW_BLEND , AW_Center
// AW_VER_POSITIVE , AW_HOR_POSITIVE
// AW_HOR_NEGATIVE , AW_VER_NEGATIVE
//only Win2000,Win XP support AW_Blend value (alpha blend effect)
end;
procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(handle,250,AW_Center or AW_Hide or AW_BLEND);
end;
// 取自LYSoft: http://lysoft.lz169.com
begin
AnimateWindow(handle,250,AW_Center);
// AW_BLEND , AW_Center
// AW_VER_POSITIVE , AW_HOR_POSITIVE
// AW_HOR_NEGATIVE , AW_VER_NEGATIVE
//only Win2000,Win XP support AW_Blend value (alpha blend effect)
end;
procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(handle,250,AW_Center or AW_Hide or AW_BLEND);
end;
// 取自LYSoft: http://lysoft.lz169.com
相关文章推荐
- 制作动态效果的Form
- 制作动态效果的Form
- 动态面板制作tab切换效果
- ----*cocos2d 制作动态光晕效果基础 —— blendFunc
- cocos2d 制作动态光晕效果基础 —— blendFunc
- 利用AmChart制作图表信息(效果动态好看,很花哨)
- 用Flash制作动态交互文本移动效果
- PS简单制作滚动文字的动态效果
- cocos2d制作动态光晕效果基础――blendFunc
- 制作桌面精灵(动态桌面)——鼠标跟随的粒子效果
- cocos2d制作动态光晕效果基础——blendFunc
- 主页制作动态效果技术小结
- cocos2d 制作动态光晕效果基础 —— blendFunc
- 学习笔记:axure 高级教程 1 动态面板制作tab切换效果
- cocos2d制作动态光晕效果基础
- 动态效果制作
- 如何用PS制作动态下雪の效果
- cocos2d 制作动态光晕效果基础 —— blendFunc
- 【Axure教程】动态面板制作弹出框效果
- cocos2d 制作动态光晕效果基础 —— blendFunc