¿Cuál es el componente que hace clic en un menú emergente originado de

Question

Al tener un menú emergente asociado a varios componentes en un formulario (botones, pero también cosas como TCharts), me gustaría saber qué componente se hizo clic derecho para iniciar el menú emergente en El primer lugar.

El parámetro Sender del método de clic simplemente apunta al TMenuItem, su elemento principal del menú emergente (o el elemento del menú principal).

¿Cómo obtengo el componente de origen?

Answer 1

¿Quisces decir PopupMenu1.PopupComponent?

Answer 2

Como último recurso puede usar Mouse.CursorPos en TPopupMenu.OnPopup para encontrar este componente en un formulario. Pero probablemente haya una forma mejor/más fácil.

Answer 3

se puede obtener el componente de llamada dentro del evento click del TMenuItem de un PopupMenu por

Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent; 

Un ejemplo de un PopupMenu que se asigna a varios cuadros de lista y resuelve la exportación de presentar funcionalidad:

procedure TForm1.mniExportFileClick(Sender: TObject); 
var Caller: TObject; 
begin 
    if SaveTextFileDialog1.Execute then 
    begin 
    Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent; 
    (Caller as TListBox).Items. 
     SaveToFile(SaveTextFileDialog1.FileName, 
     StandardEncodingFromName(
      SaveTextFileDialog1.Encodings[SaveTextFileDialog1.EncodingIndex])); 
    end; 
end;