Popup Menu Опции

[#$# PaVeL #$#]

Popup Menu
Можно ли заставить не исчезать по событию выбора элемента, а допустим поставить галку и предоставить право отмечать другие элементы? Если ДА - то как?

[volvo]

Можно еще проще, без отслеживания кликов правой кнопкой:

procedure TForm1.first1Click(Sender: TObject);
var pnt: TPoint;
begin
  (Sender as TMenuItem).Checked := not (Sender as TMenuItem).Checked;
  pnt := PopupMenu1.PopupPoint;
  PopupMenu1.Popup(pnt.X, pnt.Y);
end;