[Alxd]

Как регулировать, в какую сторону от курсора будет выпадать PopupMenu?
Всегда это происходит вправо, а мне нужно наоборот. Подскажите, как можно это реализовать?

[Aristarh Dark]

Имхо, PopupMenu выпадает таким образом чтобы целиком (или максимально) разместиться в видимой области экрана.

[Nyctos Kasignete]

Код:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    TrackPopupMenu(PopupMenu1.Handle, TPM_RIGHTALIGN, Mouse.CursorPos.X,
                   Mouse.CursorPos.Y, 0, PopupList.Window, nil);
end;

[Alxd]

Спасибо большое!