[Ama]

Что-то ничего не получается.

Код:

var
  LItem : LongWord;
  LMenu : HMENU;
begin
  LMenu := GetSystemMenu(Handle,false);
  LItem := LongWord(Windows.TrackPopupMenu(LMenu, TPM_LEFTBUTTON or
                                           TPM_RIGHTBUTTON or TPM_RETURNCMD,
                                           100, 100, 0 , Handle, nil));
  if LItem>0 then  SendMessage(Handle,WM_SYSCOMMAND,LItem,0);
end;

При трассировке этого кода GetSystemMenu(Handle,false) возвращает 0 и поэтому ничего не работает.
Сообщение SendMessage(Handle, 787, 0, MAKELPARAM(10, 10)); ничего не происходит. Кстати посетила идея может не работает меню из-за того что у меня на форме BorderStyle:= bsNone?