區域通知 |
答題得分者是:GrandRURU
|
diroex
一般會員 發表:38 回覆:51 積分:22 註冊:2005-04-04 發送簡訊給我 |
請問要如何讓BCB可以最小化到右下角的區域通知裡呢?
我有找到一段程式碼,但不知是否跟著有相關,重點是我看不太懂delphi,不知道在BCC怎寫~_|| const WM_Notify = wm_User 1000; private procedure TrayIcon(var message:TMessage);message WM_notify; public { Public declarations } end; var sn: TNotifyIconDataA; implementation procedure TForm1.N4Click(Sender: TObject); begin //最小化到系统通知区域 sn.cbSize :=sizeof(sn); sn.Wnd :=form1.Handle; sn.uID :=0; sn.uFlags :=NIF_ICON or NIF_TIP or NIF_MESSAGE ; sn.uCallbackMessage :=wm_notify ; sn.hIcon :=application.Icon.Handle; sn.szTip :='hello'; Shell_NotifyIcon(nim_add,@sn); end; procedure tform1.TrayIcon(var message : tmessage); var Cp: TPoint; Begin Case message.LParam of //右键单击 WM_RButtonDown: begin GetCursorPos(cp); popupmenu1.Popup(cp.x,cp.y); PostMessage(self.Handle ,WM_NULL, 0, 0 ); end; End; End; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin //删除系统通知区域图标 Shell_NotifyIcon(nim_delete,@sn); end; |
GrandRURU
站務副站長 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |