線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1410
推到 Plurk!
推到 Facebook!

如何將Application 個icon 顯示在System Tray

缺席
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-11 17:01:10 IP:203.198.xxx.xxx 未訂閱
如何將當Application縮小時,application 個icon 顯示在System Tray?
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-11 17:13:48 IP:147.8.xxx.xxx 未訂閱
There are many free component for this kind of purpose and here is one of them:    http://www.vclxx.org/DELPHI/D32FREE/TRAY11.ZIP
turboted
版主


發表:95
回覆:754
積分:452
註冊:2002-07-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-13 09:20:33 IP:210.241.xxx.xxx 未訂閱
請參考 (1)delphi的目錄下, 有Demo程式一個用VCL, 一個是用API呼叫 (2)http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18760 (3)http://delphi.ktop.com.tw/topic.php?topic_id=30275
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-06-13 10:25:18 IP:203.198.xxx.xxx 未訂閱
多謝turboted,已解決我一部份問題,但如果當這icon在system tray 上,我想right click mouse,然後在此icon上出現pop up menu ,可以怎樣做呢? 發表人 - superlowb 於 2003/06/13 10:27:04
turboted
版主


發表:95
回覆:754
積分:452
註冊:2002-07-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-06-13 11:06:18 IP:210.241.xxx.xxx 未訂閱
(1)建一個popupmenu (2)設定TrayIcon的popupmenu屬性指到上面建出來的popupmenu 行了
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-06-13 11:37:25 IP:203.198.xxx.xxx 未訂閱
引言: (1)建一個popupmenu (2)設定TrayIcon的popupmenu屬性指到上面建出來的popupmenu行了
請問段code怎樣寫?
turboted
版主


發表:95
回覆:754
積分:452
註冊:2002-07-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-06-13 12:44:05 IP:210.241.xxx.xxx 未訂閱
不用寫 只要把popup menu 這個元件拉一個放到form上面 再點選trayicon 選他的popupmenu屬性 就可選了
longsanglin
初階會員


發表:10
回覆:57
積分:43
註冊:2002-04-23

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-06-13 13:55:07 IP:211.22.xxx.xxx 未訂閱
引言:
引言: (1)建一個popupmenu (2)設定TrayIcon的popupmenu屬性指到上面建出來的popupmenu行了
請問段code怎樣寫?
procedure TMainForm.WndProc(var Msg: TMessage); var p: TPoint; begin case Msg.Msg of WM_User 1: case Msg.LParam of WM_RBUTTONDOWN : // Click Mouse Right Button begin GetCursorPos(p); PopupMenu1.Popup(p.x, p.y); end; WM_LBUTTONDOWN : // Click Mouse Left Button begin : : end; end; end; end; Try it 發表人 - longsanglin 於 2003/06/13 13:57:55
problemman
一般會員


發表:7
回覆:25
積分:16
註冊:2003-04-11

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-06-13 14:13:41 IP:203.198.xxx.xxx 未訂閱
.... 發表人 - problemman 於 2003/06/13 14:16:08
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-06-13 14:23:58 IP:203.198.xxx.xxx 未訂閱
謝過longsanglin 1. 當popupmenu出現後,我click其他window物件時,popupmenu,仍然存在,怎樣可以將它消失? 2.還有,怎樣可當按minimize時,可以使張form會不見,而當按個icon時,張form會出現? 發表人 - superlowb 於 2003/06/13 16:01:11
turboted
版主


發表:95
回覆:754
積分:452
註冊:2002-07-23

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-06-14 16:11:56 IP:61.66.xxx.xxx 未訂閱
(1)在TrayIcon的OnMouseUp事件中 加入SetForegroundWindow(Handle) (2)怎樣可當按minimize時,可以使張form會不見,而當按個icon時,張form會出現? 這個不就是TrayIcon的功能嗎???
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-07-15 20:52:01 IP:61.221.xxx.xxx 未訂閱
引言: 謝過longsanglin 1. 當popupmenu出現後,我click其他window物件時,popupmenu,仍然存在,怎樣可以將它消失? 2.還有,怎樣可當按minimize時,可以使張form會不見,而當按個icon時,張form會出現?
SuperLowB 你好: 請參考以下的連結文章
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
系統時間:2024-05-09 8:49:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!