Delphi/C++ Builder TPopupMenu を右クリックで呼び出した(呼び出された？)コンポーネント

Delphi/C++ Builder TPopupMenu を右クリックで呼び出した(呼び出された？)コンポーネントを取得

通常Sender には TMenuItem が入ってくるので、PopupComponent プロパティを使用すると、右クリックでPopupMenu を呼び出したコンポーネントが取得できる

procedure TGuiSetupForm.pop_AAAClick(Sender: TObject);
begin
    if (PopupMenu1.PopupComponent is TEdit) then begin
        TEdit(PopupMenu1.PopupComponent).SelText := 'hogehoge';
    end;
end;