Незакрывающиеся Menu

[Veiron]

Как сделать что бы при нажатии в меню (TMainMenu/TPopupMenu) оно не закрывалось? Там CheBox нужно сделать что бы при нажатии на этот пункт оно не закрывалось а просто ставило/снимало флажок.

[alexBlack]

Могу предложить такой вариант:
показывать меню программно и запоминать координаты
при нажатии на нужный пункт открывать меню повторно

procedure TForm1.iiii1Click(Sender: TObject);
begin
   case TMenuItem(Sender).tag of
      1 : begin
             TMenuItem(Sender).checked := not TMenuItem(Sender).checked;
             popupMenu1.popUp(MX, MY);
          end;
   end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var P:TPoint;
begin
   if Button = mbRight then begin
      P := ClientToScreen(point(X, Y));
      MX := P.X; MY := P.Y;
      popupmenu1.popup(P.X, P.Y);
   end;
end;