Añadir a un Popup Contextual nuevas opciones

[Critter]

a ver si me podeis echar una manita nuevamente, pues tengo el siguiente problema:

Dispongo de una serie de TDBEdits, y como sabeis el TPopupMenu desplega el clasico "deshacer, Copiar, pegar, seleccionar todo", pues bien yo querria que al final del popupmenu en cuestion poder añadir mis opciones particulares, sin perder las predefinidas.

Gracias.

[[Bicho]]

Hola Critter, has echado un vistazo a los resultado que te aparecen al pie de ésta página, en especial el primero y el último que dan la misma solución.

Espero te sirva,

Saludos

[Critter]

Empezado por Bicho

Hola Critter, has echado un vistazo a los resultado que te aparecen al pie de ésta página, en especial el primero y el último que dan la misma solución.

Espero te sirva,

Saludos

Lo he mirado, pero ... lo malo es que utilizo Delphi 3 y hablan de Delphi 7.
Si alguien puede pasarme algo de codigo e indicarme un poco el camino.

gracias.

[[Crandel]]

En verdad es bastante simple, como todo cuando se tiene la solución

La idea es crear un nuevo objeto del tipo TMenuItem y darle los valores que necesitas, ej:

Código Delphi [-]
procedure TForm1.AgregarOpcion;
var
  NewItem: TMenuItem;
begin
  NewItem := TMenuItem.Create(PopupConstruir);
  PopupMenu1.Items.Add(NewItem);
  NewItem.Caption := 'Opcion 1';  // texto que aparece
  NewItem.OnClick := EventoClick; // le asignas el método que queres que se ejecute cuando se genere el evento
end;

[Critter]

Empezado por Crandel

En verdad es bastante simple, como todo cuando se tiene la solución

La idea es crear un nuevo objeto del tipo TMenuItem y darle los valores que necesitas, ej:

Creo que no me has entendido, lo que pretendo es no rehacer el popup estandard de windows, sino añadirle mas opciones.

de todas maneras gracias por haber contestado.

[ixMike]

Bueno, eso de añadir cosas al Popup de Windows, pues es algo complicado (digo yo, nunca lo he hecho). Pero podías poner tú mismo tu propio Popup, poniendo las opciones de Deshacer, Copiar, Cortar, Pegar y Seleccionar todo (más las que tú quieras). Implementar el código no es tan difícil. En cada caso sería:

Pegar: DBEdit1.PasteFromClipboard;
Copiar: DBEdit1.CopyFromClipboard;
Cortar: DBEdit1.CutToClipboard;
Seleccionar todo: DBEdit1.SelectAll;
Deshacer: DBEdit1.Perform(EM_UNDO,0,0);


Espero que esto te sirva, y hasta la próxima !!!