怎样找到调用本控件的上一控件?

Question

比如PopupMenu控件,我想知道是哪个控件调用的它,谢谢大家

Answer 1

PopupMenu不太好弄，其他的是不是可以用 控件.parent得到

Answer 2

难道你不是把某个popUpMenu绑定到控件的马？
那样根据弹出的pop的不同，就应该知道的；
或者就用一个Tobject类型的全局变量来记录那个控件被点中了
var
  Form1: TForm1;
  Rec:TObject;implementation{$R *.dfm}procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Rec:=Sender;
end;end.

Answer 3

谢谢  heluqing(鉴之小河〖挣大钱娶美女〗 结贴