我建立了一个二维控件数组！

[pasud5]

我建立了一个二维控件数组
程序如下
for n:=0 to v-1 do
begin
for i:=0 to x-1 do
begin
Btnary[n,i]:=TButton.Create(Self);
Btnary[n,i].Parent:=Self;
Btnary[n,i].OnClick :=BtnaryClick;
end;
end;
procedure Tfrm_main.BtnaryClick(Sender: TObject);
begin
ShowMessage(inttostr(TButton(Sender).tag));
end;

除了用tag属性实现外！
请问在BtnaryClick里如何得到控件数组的
维数[n,i]。
因为用Tag要计算！涉及到以后的计算会麻烦！

[Apollo47]

很简单，你可以这样得到下标：
procedure Tfrm_main.BtnaryClick(Sender: TObject);
begin
for n:=0 to v-1 do
for i:=0 to x-1 do
if Btnary[n,i]=Sender then // 判断当前 Sender 的是哪一个 Button；
ShowMessage(inttostr(n)+','+IntToStr(i));
end;