タスクトレーでポップアップメニューのシュートカットキー有効にするには？？

たまゴ 2006-03-09 03:14:38 No: 20432

タスクトレーでマウスクリックでポップアップメニューを表示しています。
しかしながら、ポップアップメニューのショートカットキーが有効に
ならないし矢印キーも利きません。
ちなみに「ShowMessage」を入れてやると有効になります。
画面は最前に表示されますが、アクティブになっていないの
でしょうか？？

procedure TFormLoad.TaskTrayEvent(var Msg: TMessage);
var
  tpMouse             : TPoint;
begin
  case Msg.LParam of
    //マウスの右ボタンがクリックされたら
    WM_RBUTTONDOWN:   Begin
      SetForeGroundWindow(Self.Handle);
      PostMessage(Self.Handle, WM_NULL, 0, 0);
      //ShowMessage('PopupMenuPopup') ;
      GetCursorPos(tpMouse);
      PopupMenu.Popup(tpMouse.x, tpMouse.y);
      End;
  end;
end;