当前位置: 源码素材网 » Delphi源码 » 界面编程 » 详情页

Delphi 动态最小化到状态栏图标区中

begin//Delphi 动态最小化到状态栏图标区中
   HTray := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil);
   if hTray <> 0 then
   begin
   FRect := form1.BoundsRect;
   GetWindowRect(HTray, TrayRect);
   if not DrawAnimatedRects(form1.Handle, IDANI_CAPTION, FRect, TrayRect) then
   begin
   MessageDlg('动画效果失败。', mtError, [mbOK], 0);
   end;
   end
   else
   begin
   MessageDlg('不能获取托盘的句柄。', mtError, [mbOK], 0);
   end;
  end;

  • 相关标签:状态栏 最小化
  • 调试环境:Delphi7+
  • 文件大小:5.63K
  • 资源评级:
  • 更新时间:2019-01-10
  • 相关链接:暂无演示

源码测试截图:

Delphi 动态最小化到状态栏图标区中运行截图

相似源码:状态栏 最小化 Delphi源码下载:Delphi 动态最小化到状态栏图标区中 测试截图

下载地址:

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 动态最小化到状态栏图标区中”源代码侵犯了您的权益,请尽快告诉我们。