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

时间:2022-07-30 06:23:52
【文件属性】:

文件名称:Delphi 动态最小化到状态栏图标区中.rar

文件大小:6KB

文件格式:RAR

更新时间:2022-07-30 06:23:52

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;


【文件预览】:
srcfans.com
----statusbar()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(4KB)
--------Unit1.dfm(399B)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)

网友评论