Agregar Opciones a Menu Emergente de un componente
 

Hola a todos...

Quiero agregar una opción al menú emergente de un componente... (Cuando selecciono un componente y hago click con el boton derecho)

Como se puede hacer esto?

Saludos..

Hola Neruu.

Si con agregar una opción te referis a agregar un nuevo ítem podes hacer:

En tiempo de diseño
Doble click sobre el componente TPopupMenu correspondiente. Aparece el Menu designer que te permite hacerlo de forma sencilla.

En tiempo de ejecución (ejemplo)

Código Delphi [-]
...

procedure TForm1.NuevoItemClick(Sender: TObject);
begin
  ShowMessage('Click');
end;

procedure TForm1.btnAddItemClick(Sender: TObject);
var
  mi: TMenuItem;
begin
  mi:= TMenuItem.Create(Self);
  mi.Caption := 'Nuevo Item';
  mi.OnClick := NuevoItemClick;
  ...
  PopupMenu1.Items.Add(mi);
  ...
end;

Saludos :)

No me refiero a eso....

Por ejemplo: En un query, si hago click con el botón derecho del mouse aparece la opción Field Editor....
Supongamos que quiera agregar debajo de esa opción quisiera agregar una propia, como debería hacer esto?

Saludos...

Para eso debes crear un editor de propiedades. Disculpa si no te doy mas detalles pero es algo que nunca he hecho pero puedes buscar informacion sobre propertyeditor.

Saludos

Gracias ,....

Ya se para donde apuntar....


Saludos...