怎样利用Sender取得动态创建的控件数组的下标?

Question

假定你是 aryBtn : array of TButton;
var
theID:integer;
begin
if sender is TButton then begin
  theID := (Sender As TButton).Tag;
end;
end;

Answer 1

对不起，忘了说一点，我的程序是将建立的Image的控件数组的PopupMenu属性 
都设为PopupMenu1,当点击PopupMenu1的ss1菜单项时，要求读出控件数组的Tag属性，此 
时读不到Sender呀 

Answer 2

如果是这样的话，读出来的是tmenuitem，当然读不出image，你要重载image,自己处理popup menu事件