delphi7如何设置最小化托盘?

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

2个回答

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

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

qq_34105767
LPPC 回复lyhoo163: 请问在那个板块里啊
4 年多之前 回复

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
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐