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

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

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

1. procedure TGuiSetupForm.pop_AAAClick(Sender: TObject);  
2. begin  
3.     if (PopupMenu1.PopupComponent is TEdit) then begin  
4.         TEdit(PopupMenu1.PopupComponent).SelText := 'hogehoge';  
5.     end;  
6. end;  

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