procedure TForm1.PopupMenu1Popup(Sender: TObject); begin ShowMessage((Sender as TPopupMenu).PopupComponent.ClassName); //这时的 Sender 是菜单本身,要得到是谁触发它的要用 PopupComponent 属性 ShowMessage((Sender as TPopupMenu).PopupComponent.Name); //这时的 Sender 是菜单本身,要得到是谁触发它的要用 PopupComponent 属性 //ShowMessage((Sender as TControl).Name); //if Sender = Form1 then // if (Sender as TControl).Name = 'Form1' then // N_fontAdd.Enabled := False;