关于pupupmenu的祖先的问题，很简单的

Question

我窗体中有2个控件共用一个popupmenu，现在我想判断是哪个控件弹出的菜单，于是在popupmenu的onpopup事件里写了treeview1:Ttreeviewprocedure TMenuManage_Main_F.PopMenuPopup(Sender: TObject);
begin
  inherited;
   if (sender is TTreeView) then
    ...
end;程序可以执行到这里，但是没有效果,我想问一下错在哪里？另外如果用popupmenu.PopupComponent这个方法判断的话程序该怎么写？

Answer 1

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  showmessage(popupmenu1.PopupComponent.Name);
end;刚学的，嘿嘿

Answer 2

晕死，我主要想不通我用sender是错在哪里？