Ver Mensaje Individual
  #2  
Antiguo 29-09-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita