[Neftali [Germán.Estévez]]

Empezado por karocs

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

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