簡單實現系統托盤

使用 delphi 提供的 ttrayicon 類, 兩三行程式甚至不寫程式(設計時選擇幾下)即可實現.

設計時的準備工作:

1、新增 ttrayicon、tpopupmenu 控制項, tpopupmenu 用於托盤的右鍵選單.

2、隨意給 tpopupmenu 新增些選單項.

**檔案:

unitunit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, menus, extctrls;
type
tform1 = 
class(tform)
trayicon1: ttrayicon;
popupmenu1: tpopupmenu;
aaa1: tmenuitem;
bbb1: tmenuitem;
ccc1: tmenuitem;
procedureformcreate(sender: tobject);
proceduretrayicon1dblclick(sender: tobject);
end;
var
form1: tform1;
implementation

proceduretform1.formcreate(sender: tobject);
begin


trayicon1.popupmenu := popupmenu1;

trayicon1.visible := true;
end;

proceduretform1.trayicon1dblclick(sender: tobject);
begin
showmessage(
'ondblclick'
);
end;
end.

窗體檔案:

objectform1: tform1
left = 
0
top = 
0
caption = 
'form1'

clientheight = 
206
clientwidth = 
339
color = clbtnface
font.charset = default_charset
font.color = clwindowtext
font.height = -
11
font.name = 
'tahoma'

font.style = 
oldcreateorder = false
oncreate = formcreate
pixelsperinch = 
96
textheight = 
13
objecttrayicon1: ttrayicon
ondblclick = trayicon1dblclick
left = 
152
top = 
88
end
objectpopupmenu1: tpopupmenu
left = 
216
top = 
88
objectaaa1: tmenuitem
caption = 
'aaa'

end
objectbbb1: tmenuitem
caption = 
'bbb'

end
objectccc1: tmenuitem
caption = 
'ccc'

end
end
end

實現系統托盤的功能

windows桌面的系統托盤位於工作列的右側，即windows桌面的右下方，它常用來顯示一些系統的狀態。如系統時間，音量控制以及其他的一些圖示。常常能見到一些優秀的軟體在執行後會將其應用程式圖示加入到系統托盤中，如金山詞霸。如果能將自己編寫的應用程式的圖樣也加入到系統托盤中，將會使程式顯得很有專業水...

系統托盤程式設計

所謂的 托盤 在windows系統介面中，指的就是下面任務條右側，有繫 統時間等等的標誌的那一部分。二 托盤程式設計相關函式 winshellapi bool winapi shell notifyicon dword dwmessage,pnotifyicondata pnid 這個函式呢，負責向...

系統托盤程式

系統托盤程式 與系統托盤通訊的函式 shell notifyicon dword dwmessage,pnotifyicondata pnid 第乙個引數dwmessage可以取以下值 1 nim add 向托盤中加入乙個圖示 2 nim modify修改托盤中的圖示 3 nim delete 從托...