Componente del popupmenu

[dec]

Hola,

Si no entendí mal, estás usando el evento "OnPopupMenu". Si no recuerdo mal, el "Sender" en este caso es quien "levanta el menú", es decir, en tu caso alguno de los botones con un "PopupMenu" asociado. Si esto es así y no me equivoco, entonces podrías averiguar el nombre del botón utilizando el "Sender", mediante algo como esto:

Código Delphi [-]
var
  btnName: string;
begin
  btnName := EmptyStr;
  if (Sender is TButton) then begin
    btnName := TButton(Sender).Name;
  end;
end;

[keyboy]

Creo que Sender siempre será el mismo PopupMenu. Intenta con PopupMenu1.PopupComponent

Bye

[dec]

Hola,

Llevas razón Keyboy.

Código Delphi [-]
var
  btnName: string;
begin
  btnName := EmpyStr;
  if (Sender is TPopupMenu) then
  begin
    if (TPopupMenu(Sender).PopupComponent is TButton) then
    begin
      btnName := TPopupMenu(Sender).PopupComponent.Name;
    end;
  end;
end;

[Vlady]

Gracias por su ayuda dec y keyboy, el codigo q me dio dec esta bien pero no se debe utilizar el parametro sender, sin este funciona correctamente mi aplicacion.

Gracias