Agregar Opciones a Menu Emergente de un componente

[Neeruu]

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..

[ecfisa]

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

[Neeruu]

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...

[Caminante]

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

[Neeruu]

Gracias ,....

Ya se para donde apuntar....


Saludos...