[dr. F.I.N.]

Вот пожалста..при нажатии на Button1 системное меню вылетит в координатах (100х100)

Код:

procedure TForm1.Button1Click(Sender: TObject);
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;

(с) DelphiKingdom