crear popupmenu en tiempo de ejecución
 

Saludos

como puedo crear y destruir popupmenu en tiempo de ejecución es que estoy intentando lo siguiente..

colocar en el evento OnClick de una imagen el codigo para crearlo y me arroja un error que el componente imagen ya existe pero ese no es el que estoy creando.

gracias...

Puedes utilizar un código similar a éste que crea el componente y le alñade cuatro opciones...

Código Delphi [-]
  // Crear el componente
  popup := TPopupMenu.Create(nil);
  popup.Name := 'pMenu1';
  // Creamos 4 elementos (la 1ª cadena es el caption, la del final el nombre)
  popup.Items.Add(NewItem('aaaaaaaaaaaaaaaaa',0,False,True,nil,0,'item1'));
  popup.Items.Add(NewItem('bbbbbbbbbbbbbb',0,False,True,nil,0,'item2'));
  popup.Items.Add(NewItem('-',0,False,True,nil,0,'item3'));
  popup.Items.Add(NewItem('dddddddddddddddd',0,False,True,nil,0,'item4'));
  // Visualizar el popup en la posición 100,100
  popup.Popup(100, 100);

Saludos

muchisimas gracias por tu ayuda, me sirvio muchisimo.

yo intente crear el evento click para cada item del men, pero cuando hago click sobre el item del popupmenu no le ejecuta, como puedo llamar entonces el evento OnClick del item.

gracias de antemano.

Siguiendo con el ejemplo anterior; Añades al crear los ítems una rutina (justo donde está el nil), luego declaras ese método.

Código Delphi [-]
popup.Items.Add(NewItem('aaaaaaaaaaaaaaaaa',0,False,True,_MenuItemPopupClick,0,'item1'));
popup.Items.Add(NewItem('bbbbbbbbbbbbbb',0,False,True,_MenuItemPopupClick,0,'item2'));

La definición del método debe ser equivalente al evento OnClick:

Código Delphi [-]
procedure _MenuItemPopupClick (Sender: TObject);

y en la implementación puedes diferenciar entre cual de las opciones se ha pulsado para ejecutar cosas distintas:

Código Delphi [-]
  // No es un TMenuItem ==> salimos
  if not(Sender is TMenuItem) then begin
    Exit;
  end;
  // Excanear cual de las opciones se ha pulsado...
  if (TMenuItem(Sender).Caption = 'aaaaaaaaaaaaaaaaa') then begin
    // opción aaaaaaaaaaaaaa
    ...;
  end
  // segunda
  else if (TMenuItem(Sender).Caption = 'bbbbbbbbbbbbbb') then begin
    // opcion bbbbbbbbbbbbb
    ....
  end
  ...

Saludos

de nuevo muchisimas gracias.. ;)