弹出信息提示窗口的代码;在Windows系统桌面右下角弹出友情提示窗口
2007-10-16 16:35
417 查看
void __fastcall TForm1::FormActivate(TObject *Sender)
{
//信息提示窗体,特点是适应了任务栏的所有情况
TRect k;
HWND handle=GetDesktopWindow();//得到桌面的handle
GetWindowRect(handle,&k);//得到桌面的大小
TRect rt;
SystemParametersInfo(SPI_GETWORKAREA, 0, &rt, 0);
int x=::GetSystemMetrics(SM_CXSCREEN)-rt.Width();//任务栏在右面的宽度
int y=::GetSystemMetrics(SM_CYSCREEN)-rt.Height();//任务栏在下面的高度
/*----------------------------------------
//C++Builder专家社区www.3322ee.com原创文章
//转载请保留本版权信息,谢谢合作
----------------------------------------*/
//下面的两种显示效果①和②任选一个
//①直接显示在右下角:直接显示没有动画效果,可以放在窗体的Create事件也可以放在Activate事件里面
Left=k.Width()-Width-x;
if(Left<0)Left=0;
Top=k.Height()-Height-y;
if(Top<0)Top=0;
//②逐渐向上显示:要放在窗体的Activate事件里才能看到效果
Left=k.Width()-Width-x;
if(Left<0)Left=0;
Top=k.Height();
for(;;){
//Application->ProcessMessages();//在长时间循环中响应消息
if(Top==0)break;//结束整个循环
if(Top<=k.Height()-Height-y)break;//结束整个循环
Top-=2;//改变数值可以改变窗体出现的速度
//Sleep(1);//延时,进一步调整窗体移动速度时使用
}
}
相关文章推荐
- Extjs的Desktop弹出信息提示窗口的代码,在Windows系统桌面右下角弹出友情提示
- xp系统关闭远程桌面时,弹出一个窗口,提示"正在重新连接"
- 【Windows 7错误报告弹出提示窗口怎么取消】
- 关闭窗口代码(不会弹出提示)
- windows 不能在本地计算机启动apache2。有关更多信息,查阅系统事件日志。如果这是非Microsoft服务,请与服务厂商联系,并参考特定服务错误代码1
- Struts2弹出信息提示窗口
- Win7系统经常弹出“Windows检测到一个硬盘问题”提示窗口的故障原因及解决方法
- 在Windows服务程序中弹出信息提示框
- js实现浏览器右下角弹出提示信息窗口,几秒后自动关闭
- window.close关闭窗口,不弹出系统提示,直接关闭
- 如何去掉XP欢迎屏幕之前的提示窗口?不是系统提示信息。
- ASP.NET弹出新窗口的方法【显示提示信息】
- js 弹出提示信息,并跳转指定页面代码分享
- 无敌JS关闭当前窗口代码,不弹出确认提示
- 安装软件(名称不记得了)后,系统开机提示 visual studio just-in-time debugger窗口(WINDOWS错误提示框)
- Android监听系统来电并弹出提示窗口
- Struts2弹出信息提示窗口
- windows系统桌面右下角出现不是正版提示水印的解决办法
- window.close关闭窗口,不弹出系统提示,直接关闭
- windows平台下,c++获取cpu型号,读取注册表获取系统软硬件信息代码