Hint |
|
jumo
一般會員 發表:33 回覆:65 積分:24 註冊:2002-04-17 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
引言: 請教一下各位 我現在有一個程式最小化會變成TrayIcon 每次有特定情況發生時, 他會有一個 Hint 產生出來 就像微軟的重大更新 請問要如何用程式主動產生一個 Hint 出來, 並且產生出來的位置是在 TrayIcon的附近(因為工作列不一定在最下面) 謝謝!!站長轉貼會員qq 回覆您的文章: uses shellaip; procedure TForm1.FormCreate(Sender: TObject); var i:integer; ZAppName: array[0..127] of char; Hold: String; Found: HWND; nid: TNotifyIconData; begin nid.cbSize:=sizeof(nid); // nid變量的字節數 nid.Wnd:=Handle; // 主窗口句柄 nid.uID:=123; // 內部標識,可設為任意數 nid.hIcon:=Application.Icon.Handle; // 要加入的圖標句柄,可任意指? nid.szTip:='線上即時現金會員統計'; // 提示字符串 nid.uCallbackMessage := MY_MESSAGE; // 回調函數消息 NID.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有? if not Shell_NotifyIcon(NIM_ADD,@nid) then begin showmessage('Failed!'); Application.Terminate; end; {將程序的窗口樣式設為TOOL窗口,可避免在任務條上出現} SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end;~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
jumo
一般會員 發表:33 回覆:65 積分:24 註冊:2002-04-17 發送簡訊給我 |
引言:請問一下 上面的範例我在編譯的時候下面這一行發生了錯誤, 請問哪裡出了問題? nid.uCallbackMessage := MY_MESSAGE; // 回調函數消息 然後我將這一行拿掉之後, 程式執行時必須滑鼠移到該Icon的地方才會有Hint 出來, 不知是否和這一行有關係, 或是要用何種方法由程式控制讓Hint顯示出來 麻煩大家囉, 謝謝!!引言: 請教一下各位 我現在有一個程式最小化會變成TrayIcon 每次有特定情況發生時, 他會有一個 Hint 產生出來 就像微軟的重大更新 請問要如何用程式主動產生一個 Hint 出來, 並且產生出來的位置是在 TrayIcon的附近(因為工作列不一定在最下面) 謝謝!!站長轉貼會員qq 回覆您的文章:uses shellaip; procedure TForm1.FormCreate(Sender: TObject); var i:integer; ZAppName: array[0..127] of char; Hold: String; Found: HWND; nid: TNotifyIconData; begin nid.cbSize:=sizeof(nid); // nid變量的字節數 nid.Wnd:=Handle; // 主窗口句柄 nid.uID:=123; // 內部標識,可設為任意數 nid.hIcon:=Application.Icon.Handle; // 要加入的圖標句柄,可任意指? nid.szTip:='線上即時現金會員統計'; // 提示字符串 nid.uCallbackMessage := MY_MESSAGE; // 回調函數消息 NID.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有? if not Shell_NotifyIcon(NIM_ADD,@nid) then begin showmessage('Failed!'); Application.Terminate; end; {將程序的窗口樣式設為TOOL窗口,可避免在任務條上出現} SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end;~~~Delphi K.Top討論區站長~~~ |
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
這個sample應可解決此題。
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81823
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |