文件名称: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)