如何在托盤圖標實現漂亮的菜單

　　  今日看到一個帖子問：如何在托盤圖標實現象window開始菜單中菜單左側的圖片效果。於是自己動手做了一個。
　　  我的思路是不用菜單，用窗體來實現（我想不僅是Delphi其他編程語言應該一樣可以）。
　　  例子中我用到了一個第三方控件：Trayicon用來顯示動態托盤圖標（下載地址：http://2ccc.com/article.ASP?articleid=1985）。請看我如下步驟：
　　  1.新建立一個project,同時建立兩個窗體Form1和iconform。其中第二個用來顯示托盤圖標菜單。
　　  2.各放置一個Trayicon、imagelist和Applicationevents控件於Form1上。
　　  3.加入合適的圖標到imagelist，然後在trayicon的屬性編輯器中的icon項關聯imagelist。（如果你加入了多個圖標，你可以把trayicon的animate設置為true，可以看見動態圖標，trayicon控件包裡有DEMO）
　　  4.將trayicon的popupmenuon屬性設置為imnone；visible設置為true。
　　  5.在trayicon的mouseup事件中寫：
　　var
　　  APoint: TPoint;
　　begin
　　  GetCursorPos(APoint);
　　  if (Screen.ActiveForm <> nil) and (Screen.ActiveForm.Handle <> 0) then
　　    SetForegroundWindow(Screen.ActiveForm.Handle);

　　  if iconform.Width + apoint.X <= screen.Width then
　　    iconform.left:=APoint.X
　　  else
　　    iconform.Left:=APoint.X - FORM2.Width;

　　  iconform.Top:=apoint.Y - FORM2.Height;
　　  iconform.Show;
　　end;
　　  6.在applicationevents的deactivate事件中寫：
　　iconform.Close;
　　  7.在iconform上放置兩個標簽label_restore,label_exit
　　  8.在iconform的deactivate事件中寫： close;
　　  9.在label_restore的click事件中寫： form1.trayicon1.Restore;
　　     在label_exit的click事件中寫： Application.Terminate;
　　  10.至此，編程工作已經完成，運行後點擊托盤圖標看看效果如何。你可以在iconform上作你想作的事情，不用說圖片，在form上你可以作的事情就太多了。

　　  如果你有更好的方法或思路，歡迎討論：QQ:56059327,MSN:[email protected].
　　  謝謝！