Añadir a un Popup Contextual nuevas opciones

[roman]

Realmente creo que esta opción de ixMike es lo mejor. He intentado algunas cosas para añadir elementos al menú estándar sin éxito y he buscado en algunos lugares pero no he visto alguna solución.

Eso sí, para que esta opción quede bonita hay que trabajarle un poco para poder presentar las opciones correctamente, esto es, habilitar o inhabilitarlas según corresponda:

• Deshacer - se habilita o inhabilita según el valor de Edit.CanUndo
• Cortar, Copiar, Eliminar - se habilitan o inhabilitan según si Edit.SelLength es mayor que 0
• Seleccionar todo - se habilita sólo si Edit.Text no está vacío
• Pegar - se habilita o inhabilita según si hay algo o no que pegar. Esto último creo que se puede averiguar usando ClipboardHasFormat(CF_TEXT)

Por cierto, al menos en Delphi 7, los Edit ya tiene el método Undo que equivale al mensaje EM_UNDO.

Habilitar o inhabiltra las opciones podría hacerse en el evento OnPopup del PopupMenu, que se ejecuta justo antes de desplegarse.

// Saludos