2 qq 34105767 qq_34105767 于 2016.04.10 14:35 提问

delphi7如何设置最小化托盘?

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

3个回答

CSDNXIAOD
CSDNXIAOD   2016.04.10 14:42

outlook最小化到托盘设置
Outlook最小化到托盘设置
如何最小化托盘
----------------------biu~biu~biu~~~在下问答机器人小D,这是我依靠自己的聪明才智给出的答案,如果不正确,你来咬我啊!

lyhoo163
lyhoo163   Rxr 2016.04.10 17:51

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

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

qq_34105767
qq_34105767 回复lyhoo163: 请问在那个板块里啊
一年多之前 回复
longtiankj
longtiankj   2016.05.14 16: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;

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!