Как регулировать, в какую сторону от курсора будет выпадать PopupMenu?
----------------------------------------------------------------------
procedure PopupMenu(hWnd: THandle);
var
Menu: hMenu;
Popup: hMenu;
P: TPoint;
begin
Menu := LoadMenu(hInstance, 'MAINMENU');
// Загрузка Меню из ресурса ( файл TrayRes.RC )
Popup := GetSubMenu(Menu, 0);
GetCursorPos(P);
SetForegroundWindow(hWnd);
TrackPopupMenu(Popup, TPM_LEFTBUTTON, P.X, P.Y, 0, hWnd, NIL);
PostMessage(hWnd, WM_NULL, 0, 0);
DestroyMenu(Menu);
end;
----------------------------------------------------------------------
Пожалуйста, помогите !