qq_34105767
LPPC
采纳率0%
2016-04-10 06:35 阅读 1.7k

delphi7如何设置最小化托盘?

各位大神,问一下delphi7里怎样设置托盘?一定要外置控件吗。

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

2条回答 默认 最新

  • lyhoo163 lyhoo163 2016-04-10 09:51

    Delphi 有一个控件TrayIcon,通过它可以容易地设置托盘程序了。
    TrayBarIcon。

    进入托盘代码:
    AddIcon(handle);
    hide;

    点赞 评论 复制链接分享
  • longtiankj 龙田科技 2016-05-14 08:52

    uses
    shellapi;

    var
    ntida: TNotifyIcondataA;

    begin

    ntida.cbSize := sizeof(tnotifyicondataa);
    ntida.Wnd := handle;
    ntida.uID := iid;
    ntida.uFlags := nif_icon + nif_tip + nif_message;
    ntida.uCallbackMessage := mousemsg;
    ntida.hIcon := form1.Icon.Handle;
    ntida.szTip := 'TIP';

    shell_notifyicona(NIM_ADD, @ntida);

    end;

    大致这样调用,你可以试试。

    点赞 评论 复制链接分享

相关推荐