請問程式縮到右下角工具列，還要如何來偵測按鍵呢 |
|
尚未結案
|
|
17kobe
初階會員   發表：86 回覆：73 積分：31 註冊：2007-07-30 發送簡訊給我 |
請問程式縮到右下角工具列，還要如何來偵測按鍵呢
一開始執行程式就直接縮到右下角工具列，並要偵測目前按什麼鍵要如何來偵測呢，想說用applicationevents，但不知道要寫在哪 以下是一開始縮到右下角的程式碼 <textarea class="delphi" rows="10" cols="60" name="code">const WM_MYTRAYNOTIFY=WM_USER 1; //定義 wm message procedure TForm1.FormCreate(Sender: TObject); var tray_nid: TNotifyIconData; tray_icon: TIcon; begin tray_icon:= TIcon.Create; tray_icon.LoadFromFile('COLOR_BL.ICO'); tray_nid.cbSize := sizeof(tray_nid); tray_nid.Wnd := self.Handle; // blueicon 設定uID為 200 tray_nid.uID := 200; tray_nid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; // NIF_MESSAGE 設定 message wm_xxx // NIF_ICON 設定 ICON // NIF_TIP 設定 提示訊息 tray_nid.hIcon := tray_icon.Handle; tray_nid.uCallbackMessage := WM_MYTRAYNOTIFY; StrPCopy(tray_nid.szTip, '工具任按鈕提示'); Shell_NotifyIcon(NIM_ADD, @tray_nid); tray_icon.Free; end; </textarea> |
發表時間：2007-09-05 11:56:49
IP:220.132.xxx.xxx 訂閱
系統時間：2025-02-01 17:56:57
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |