形成托盘 (2)_鸽子_新浪博客

需要这个文件夹iamdream_TrayIcon

TrayIconD6.dpk

然后存在这个控件TrayIcon

procedure TMain.TrayIcon1Click(Sender: TObject);
begin
  if IsIconic(Application.Handle) then
    TrayIcon1.Restore
  else
    TrayIcon1.Minimize;
end;

 

procedure TMain.MenuItem2Click(Sender: TObject);
begin
 Application.MessageBox('是否退出此系统!', '提示', MB_OKCANCEL +
    MB_ICONINFORMATION);
  Application.Terminate;
end;

已投稿到:
郑重声明:资讯 【形成托盘 (2)_鸽子_新浪博客】由 发布,版权归原作者及其所在单位,其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实,请读者仅作参考,并请自行核实相关内容。若本文有侵犯到您的版权, 请你提供相关证明及申请并与我们联系(qiyeku # qq.com)或【在线投诉】,我们审核后将会尽快处理。
—— 相关资讯 ——